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Preface 

This document is the reference manual 
to the Pascal/VS programming language. 
The Pascal/VS Programmer's Guide» 
SH20-6162, is also available from IBM 
to help write programs in Pascal/VS. 

It is assumed that you are already 
familiar with Pascal and programming in 
a high level programming language. 
There are many text books available on 
Pascal; the following list of books was 
taken from the Pascal User’s Group 
Pascal News, December 1978 NUMBER 13 
and September 1979 NUMBER 15. You may 
wish to check later editions of Pascal 
News and your library for more recent 
books. 

• The Design of Mel1-Structured and 
Correct Programs by S. Alagic and 
M.A. Arbib, Springei—Verlag, New 
York, 1978, 292 pp. 

• Mi crocomputer Problem Solving by 
K.L. Bowles, Springei—Verlag, New 
York, 1977, 563 pp. 

• A Structured Programminq Approach 
to Data , by D. Coleman, MacMillan 
Press Ltd, London, 1978, 222 pp. 

• A Primer on Pascal by R.W. Conway, 

D. Gries and E.C. Zimmerman, 
Winthrop Publishers Inc., 

Cambridge Mass., 1976, 433 pp. 

• PASCAL ♦ An Introduction to Method- 
ical Programming by W. Findlay and 
D. Watt, Computer Science Press, 
1978, 306 pp.; UK Edition by Pitman 
International Text, 1978. 

• Programming in PASCAL by Peter 
Grogono, Addison-Wesley, Reading 
Mass., 1978, 357pp. 

• Pascal Users Manual and Report by 
K. Jensen and N. Wirth, Springei— 
Verlag, New York, 1978, 170 pp. 

• Structured Programming and 

Problem-Solving wi th Pascal by 
R.B. Kieburtz, Prentice-Hall Inc., 
1978, 365 pp. 

• Programming via Pascal by J.S. Rohl 
and Barrett, Cambridge University 
Press. 

• An Introduction to Programming and 
Problem-Solving with Pascal , by 
G.M. Schneider, S.W. Weingart and 
D.M. Perlman, Wiley & Sons Inc., 
New York, 394 pp. 

• Introduction to Pascal , by C.A.G. 
Webster, Heyden, 1976, 129 pp. 

• Introduction to Pascal , by J. Welsh 
and J. Elder, Prentice-Hall Inc., 
Englewood Cliffs, 220 pp. 


• A Practical Introduction to Pascal 
by I.P. Wilson and A.M. Addyman, 
Springei—Verlag New York, 1978, 
145pp; MacMillan, London, 1978. 

• Svstematic Programming ’ An Intro¬ 
duct i on by N. Wirth, Prentice-Hall 
Inc., Englewood Cliffs, 1973 169 

pp. 

• Algori thms + Data Structures £ Pro¬ 
grams by N. Wirth, Prentice-Hall 
Inc., Englewood Cliffs, 1976 366 
PP. 

This reference manual considers ISO/TC 
97/SC 5 N565 as the Pascal Standard 
although N565 is a proposed standard 
and subject to further modification. 

i 

Structure of this Manual 

This manual is divided into the follow- 
i ng major topics 

Chapter 1 is a summary of the lan¬ 
guage. 

Chapter 2 is a description of the 
basic units (lexical) of 
Pascal/VS. 

Chapters 3 through 9 are a top- 
down presentation of the lan¬ 
guage. 

Chapter 10 describes the I/O pro¬ 
cedures and functions. 

Chapter 11 describes the prede¬ 
fined procedures and functions. 

Chapter 12 describes the compiler 
directives. 

Appendices provide supplemental 
information about Pascal/VS. 


Pascal/VS Syntax Diagrams 

The syntax of Pascal/VS will be 
described with the aid of syntax dia¬ 
grams . These diagrams are essentially 
'road maps'; by traversing the diagram 
in the direction of the arrows you can 
identify every possible legal 
Pascal/VS program. 

Within the syntax diagram, the names of 
other diagrams are printed in lower 
case and surrounded by braces ('{}'). 
When you traverse the name of another 
diagram you can consider it a subrou¬ 
tine call (or more preci sely a 'subdia¬ 
gram call'). The names of reserved 
words are always in lower case. Special 
symbols (i.e. semicolons, commas, 
operators etc ) appear as they appear 
in a Pascal/VS program. 


i i i 
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The diagram traversal starts at the 
upper left and completes with the arrow 
on the right. Every horizontal line has 
an arrowhead to show the direction of 
the traversal on that line. The 
direction of traversal on the vertical 
lines can be deduced by looking at the 
horizontal lines to which it connects. 

Dashed lines (i.e. *-’) indicate 

constructs which are unique to 
Pascal/VS and are not found in standard 
Pascal. 

Identifiers may be classified accord¬ 
ing to how they are declared. For the 
sake of clarity, a reference in the 
syntax diagram for (id} is further 
specified with a one or two word 
description indicating how the identi¬ 


o 


o 


fier was declared. The form of the ref¬ 
erence is ’Cid*description} 1 . For 
example (id*type} references an iden¬ 
tifier declared as a type; 
Cid:functi on) references an identifier 
declared as a function name. 


Revisi on Codes 

The convention used in this document is 
that all changes in the current version 
from the previous edition are flagged 
with a vertical bar in the left margin. 

Extensions to Pascal are marked with a 
plus sign in the margin. 
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1.0 INTRODUCTION TO PASCAL/VS 


"The language Pascal was designed by 
Professor Niklaus Wirth to satisfy two 
principal aims: 

(a) to make available a language suit¬ 
able for teaching programming as a 
systematic discipline based on 
certain fundamental concepts 
clearly and naturally reflected by 
the language. 

(b) to define a language whose imple¬ 
mentations could be both reliable 
and efficient on then available 
computers.” 

(Pascal Draft Proposal ISO/TC 97/SC 5 
N565, February 19, 1980) 

Pascal/VS is an extension to standard 
Pascal. The purpose of extending Pascal 
is to facilitate application program¬ 
ming requirements. Among the exten¬ 
sions are such features as separately 
compilable external routines, internal 
and external static data, and varying 
length character strings. 

Pascal is of interest as a high level 
programming language for the following 
reasons: 

• It provides constructs for defin¬ 
ing data structures in a clear man¬ 
ner. 


• It is suitable for applying struc¬ 
tured programming techniques. 

• The language is relatively 

machine-independent. 

• Its syntax and semantics allow 

extensive error diagnostics during 
compilation. 

• A program written in the language 
can have extensive execution time 
checks. 

• Its semantics allow efficient 

object code to be generated. 

• Its syntax allows relatively easy 

compilation. 

• The language is relatively well 

known and is growing in popularity. 


1.1 PASCAL LANGUAGE SUMMARY 


This section of the manual is meant to 
be a capsule summary of Pascal/VS. It 
should serve as a brief outline to the 
language. The details are explained in 
the remainder of this document. 


Modules 

program 

self-contained and independently executable module 

segment 

a shell in which procedures and functions may be 


separately compiled 
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Declarations 

label 

declares a label in a program* procedure or function 

const 

declares an identifier that becomes synonymous with a 
compile time computable value 

type 

declares an identifier which is a use*—defined data type 

var 

declares a local variable 

def 

declares a variable which is defined in one module and 
may be referenced in other modules 

ref 

declares a variable which is defined in another module 

stat ic 

declares a variable which is persists for the entire 
execution of the program 

value 

assigns a value to a def or static variable at 
compile time 

procedure 

a unit of a module which may be invoked 

function 

a unit of a module which may be invoked and returns a 
value 




Data Types 

enumeration 

a 

list of constants of a usei—defined scalar data type 

subrange 

a 

continuous subset of a scalar type 

array 

a 

data structure composed of a list of homogeneous 
elements 

record 

a 

data structure composed of a list of heterogeneous 
elements 

set 

a 

collection of zero or more scalar values 

fi le 

a 

sequence of data to be read or written by a Pascal 
program 

pointer 

a 

reference to a variable created by the programmer 
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Predefined Data Type Identifiers 

INTEGER 

whole numbers in the range -2147483648..2147483647 

REAL 

System/370 long floating point numbers 

CHAR 

an EBCDIC character 

BOOLEAN 

an enumerated scalar with values FALSE and TRUE 

TEXT 

a "file of char”, used for readable input and output 

ALFA 

a "packed arrayC1..8] of char" 

ALPHA 

a "packed arrayC1..16] of char" 

STRING 

a "packed array[l..n] of char" where n varies up to 
compile time specified maximum value 


Predefined Constant Identifiers 

FALSE 

boolean constant 


TRUE 

boolean constant 


MAXINT 

value is equal to 
INTEGER value 

2147483647 which is the largest 

MININT 

value is equal to 
INTEGER value 

-2147483648 which is the smallest 

ALFALEN 

value is equal to 
in an ALFA 

8 which the number of characters 

ALPHALEN 

value is equal to 
in an ALPHA 

16 which the number of characters 



Parameter Passing Mechanisms 

value 

parameter passing method whereby a copy of the actual 
parameter is assigned to the formal parameter 

variable 

parameter passing method whereby the formal parameter 
represents the variable which is the actual parameter; 
this method is also refered to as by reference 

constant 

parameter passing method whereby the formal parameter 
is treated as if it were a constant 

procedural 

the mechanism whereby a procedure may be passed to the 
called routine and executed from there 

functional 

the mechanism whereby a function may be passed to the 
called routine and executed from there 
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Executable Statements 

assert 

a statement that permits you to specify a condition 
that should be true and if not causes a runtime 
error to be indicated 

assignment 

the statement that assigns a value to a variable 

case 

this statement causes any one of a list of statements 
to be executed based upon the value of an expression 

compound 

the "begin/end’ reserved words bracket a series of 
statements that cause the series to act as a single 
statement 

continue 

this statement resumes execution of the next iteration 
of the innermost loop. The termination condition is 
tested to determine if the loop should continue 

empty 

the statement that contains no executable code 

for loop 

a looping statement that modifies a control variable for 
each iteration of the loop 

goto 

the statement which changes the flow of your program 

if 

this statement causes one of two statements to be 
executed based on the evaluation of an expression 

leave 

this statement terminates the execution of the innermost 
loop. Execution resumes as if the loop termination 
condition were true 

procedure call 

this statement invokes a procedure. At the conclusion 
of the procedure, execution continues at the next 
statement 

repeat loop 

a loop with the termination test after each execution 
of the iterated statements 

return 

this statement terminates execution of the executing 
routine and returns control to the caller 

while loop 

a loop with the termination test before each execution 
of the iterated statement 

wi th 

a statement that permits complicated references to 
fields within a record to be simplified 
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v Multiplying Operators 

operator 

operation 

operands 

result 


multi piication 

INTEGER 

INTEGER 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

/ 

real divisi on 

INTEGER 

REAL 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

di v 

integer division 

INTEGER 

INTEGER 

mod 

modulo 

INTEGER 

INTEGER 

l (and) 

boolean and 

BOOLEAN 

BOOLEAN 

& (and) 

logical and 

INTEGER 

INTEGER 

K 

set intersection 

set of t 

set of t 

II 

string catenation 

STRING 

STRING 

<< 

logical left shift 

INTEGER 

INTEGER 

>> 

logical right shift 

INTEGER 

INTEGER 




Adding 

Operators 


operator 

operation 

operands 

result 

+ 

addition 

INTEGER 

INTEGER 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

- 

subtracti on 

INTEGER 

INTEGER 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

- 

set difference 

set of t 

set of t 

| (or) 

boolean or 

BOOLEAN 

BOOLEAN 

| (or) 

logical or 

INTEGER 

INTEGER 

+ 

set union 

set of t 

set of t 

&& (xor) 

boolean xor 

BOOLEAN 

BOOLEAN 

&& (xor) 

logical xor 

INTEGER 

INTEGER 

&& (xor) 

’exclusive 1 union 

set of t 

set of t 





The Not Operator 


operator 

operation 

operand 

result 

”• (not) 

boolean not 

BOOLEAN 

BOOLEAN 

- (not) 

logical one’s 
complement 

INTEGER 

INTEGER 

** (not) 

set complement 

set 

set 
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Relational Operators 


operator 

operation 

operands 

result 

= 

compare equal 

any set, scalar type, 
pointer or string 

BOOLEAN 

r~\ 

II 

r 

w 

A 

V 

compare not equal 

any set, scalar type, 
pointer or string 

BOOLEAN 

< 

compare less than 

scalar type or string 

BOOLEAN 

< = 

compare < or = 

scalar type, string 

BOOLEAN 

< = 

subset 

set of t 

BOOLEAN 

> 

compare greater 

scalar type, string 

BOOLEAN 

> = 

compare > or = 

scalar type, string 

BOOLEAN 

> = 

superset 

set of t 

BOOLEAN 

i n 

set membership 

t and set of t 

BOOLEAN 






Reserved 

Words 



and 

end 


not 

+ 

segment 

array 

file 


of 


set 

+ assert 

for 


or 


space 

begin 

function 

+ 

otherwise 

+ 

static 

case 

goto 


packed 


then 

const 

if 


procedure 


to 

+ continue 

i n 


program 


type 

4- def 

label 

+ 

range 


unt i 1 

di v 

+ leave 


record 

+ 

value 

do 

mod 

+ 

ref 


var 

downto 

nil 


repeat 


while 

else 


+ 

return 


wi th 





+ 

xor 

note: those words 

marked by *+’ 

are not reserved in 

standard Pascal 
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Special Symbols 

symbol 

meaning 

+ 

addition and set union operator 

- 

subtraction and set difference operator 

X 

multiplication and set intersection operator 

/ 

division operator, REAL results only 


BOOLEAN not, one’s complement on INTEGER or set complement 

1 

BOOLEAN or, logical or on INTEGER 

& 

BOOLEAN and, logical and on INTEGER 

&& 

BOOLEAN xor operator, logical xor on INTEGER 
and set exclusive union 

r 

equality operator 

< 

less than operator 

<= 

less than or equal operator 

>= 

greater than or equal operator 

> 

greater than operator 

<> or - , = 

not equal operator 

>> 

right logical shift on INTEGER 

<< 

left logical shift on INTEGER 

1! 

catenation operator 

: = 

assignment symbol 

, 

period to end a module 


field separator in a record 

9 

comma, used as a list separator 

x 

colon, used to specify a definition 

9 

semicolon, used as a statement separator 

, , 

subrange notation 


quote, used to begin and end string constants 

a or -> 

pointer symbol 

( 

left parenthesis 

) 

right parenthesis 

C or ( . 

left square bracket 

] or .) 

right square bracket 

£ or (# 

comment left brace (standard) 

} or 

comment right brace (standard) 

/x 

comment left brace (alternate form) 

X/ 

comment right brace (alternate form) 



Constants 

integer 

whole numbers in the range -2147483648..2147483647 

real 

System/370 long (8 bytes) floating point numbers 

string 

a sequence of EBCDIC characters 

ni 1 

the value of a pointer which does not point to a variable 

array constant 

constant of an array type 

record constant 

constant of a record type 

set constant 

constant of a set type 
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2.0 THE BASE VOCABULARY 


2.1 IDENTIFIERS 


Syntax: 


id: 


-> {letter) 


-> {di gi t}->-i 

-> (letter)->-j->-i 

-> {underscore} — >-* 




> 


where: 

{letter} is ’ A', 'B', ..., ‘ZS'a'/b’, _ 'z' or 

{digit} is ’O', ’1», »9’ 

underscore is 1 ’ 


Identifiers are names given to vari¬ 
ables, data types, procedures, func¬ 
tions, named constants and modules. 


correct : incorrect : 

I 5K 

K9 NEW JERSEY 

New_York 
AMOUNT $ 

Valid and Invalid Identifiers 


Pascal/VS permits identifiers of up to 
16 characters in length. You may use 
longer names but Pascal/VS will ignore 
the portion of the name longer than 16 
characters. You must assure identifi¬ 
ers are unique within the first 16 
positions. 

There is no distinction between lower 
and upper case letters within an iden¬ 
tifier name. For example, the names 
’ALPHA’, 'alpha', and 'Alpha' are 
equivalent. 

There is an implementation restric¬ 
tions on the naming of external vari¬ 
ables and external routines. You must 


make sure that identifiers used as 
external names are unique in the first 
8 characters. 


2.2 LEXICAL SCOPE OF IDENTIFIERS 


The area of the module where a partic¬ 
ular identifier can be referenced is 
called the lexical scope of the identi¬ 
fier (or simply scope). 

In general, scopes are dependent on the 
structure of routine declarations. 
Since routines may be nested within 
other routines, a lexical level is 
associated with each routine. In addi¬ 
tion, record definitions define a lexi¬ 
cal scope for the fields of the record. 
Within a lexical level, each identifier 
can be defined only once. A program 
module is at level 0, routines defined 
within the module are at level 1; in 
general, a routine defined in level i 
would be at level (i+1). The following 
diagram illustrates a nesting struc¬ 
ture. 
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ceding diagram. 


program M (level 0) 


procedure A (level 1) 


procedure B (level 2) 

type 
R = 

record 
Rl: . . . 

R2 : . 

end; 


function C 

(level 3) 


procedure D (level 2) 


function X (level 1) 



procedure Y 

(level 

2) 






procedure Z 

(level 

2) 






The scope of an identifier is the 
entire routine (or module) in which it 
was declared; this includes all 
routines defined within the routine. 
The following table references the pre- 


identifiers 
declared in : 

are accessible in* 

Module M 

M,A,B,C,D,X,Y,Z 

procedure A 

A, B, C, D 

procedure B 

B,C 

type R 

B,C 

function C 

C 

procedure D 

D 

function X 

X, Y,Z 

procedure Y 

Y 

procedure Z 

Z 


If an identifier is declared in a rou¬ 
tine which is nested in the scope of 
another identifier with the same name» 
then the new identifier will be the one 
recognized when its name appears in the 
routine. The first identifier becomes 
inaccessible in the routine. In other 
words, the identifier declared at the 
inner most level is the one accessible. 

The scope of a field identifier defined 
within a record definition is 1 imi ted 
to the record itself. The scope of a 
record may be accessed by either field 
referencing (section 7.2 ) or with the 
with-statement (section 9.15, page 90 
). 

The Pascal/VS compiler effectively 
inserts a prelude of declarations at 
the beginning of every module it com¬ 
piles. These declarations consist of 
the predefined types, constants, and 
routines. The scope of the prelude 
encompasses the entire module. You may 
re-declare any identifier that is pre¬ 
defined if you would like to use the 
name for another purpose. 
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2.3 RESERVED WORDS 




Reserved 

Words 


and 

end 


not + 

segment 

array 

file 


of 

set 

+ assert 

for 


or + 

space 

begi n 

function 

+ 

otherwise + 

stati c 

case 

goto 


packed 

then 

const 

if 


procedure 

to 

+ continue 

i n 


program 

type 

+ def 

label 

+ 

range 

unt i 1 

di v 

+ leave 


record + 

value 

do 

mod 

+ 

ref 

var 

downto 

ni 1 


repeat 

while 

else 


+ 

return 

wi th 




+ 

_ t __ 

xor 

note: those words 

marked by ’+’ 

are not reserved in standard 

5 ascal 


Pascal/VS reserves the identifiers 
shown above for expressing the syntax 
of the language. These reserved words 
may never be declared by you. Reserved 
words must be separated from other 
reserved words and identifiers by a 


special symbol, a comment, or at least 
one blank. 

A lower case letter is treated as 
equivalent to the corresponding upper 
case letter in a reserved word. 
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2.4 SPECIAL SYMBOLS 




Special Symbols 

symbol 

meaning 


addition and set union operator 

- 

subtraction and sat difference operator 

X 

multiplication and set intersection operator 

/ 

division operator* REAL result only 


BOOLEAN not, one’s complement on INTEGER or set complement 

1 

BOOLEAN or, logical or on INTEGER 

a 

BOOLEAN and, logical and on INTEGER 


BOOLEAN xor operator, logical xor on INTEGER 
and set exclusive union 

= 

equality operator 

< 

less than operator 

< = 

less than or equal operator 

> = 

greater than or equal operator 

> 

greater than operator 

<> or 

not equal operator 

>> 

right logical shift on INTEGER 

<< 

left logical shift on INTEGER 

II 

catenation operator 

: - 

assignment symbol 


period to end a module 

• 

field separator in a record 


comma, used as a list separator 

j 

colon, used to specify a definition 


semicolon, used as a statement separator 


subrange notation 

i 

quote, used to begin and end string constants 

{ or -> 

pointer symbol 

( 

left parenthesis 

) 

right parenthesis 

[ or (. 

left square bracket 

lor.) 

right square bracket 

{ or (* 

comment left brace (standard) 

} or x) 

comment right brace (standard) 

/X 

comment left brace (alternate form) 

X/ 

comment right brace (alternate form) 



Special symbols used by Pascal/VS are 
listed above. Several special symbols 
may also be written as a reserved word. 
These symbols are shown in the follow- 
ing table. 


Symbol 


& 

&& 


Reserved Word 
not 
or 
and 
xor 
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2.5 COMMENTS 


Pascal/VS supports two forms of com¬ 
ments: f { ... )’ and ’/*...#/ f . The 
curved braces are the standard comment 
symbol in Pascal. The symbols ’(*' and 
’*)’ are considered by the compiler to 
identical to left and right braces. The 
form of comment using VX* and ’*/* is 
considered to be distinct from the form 
using braces. 

Nhen the compiler encounters the symbol 
’l*, it will bypass all characters, 
including end-of-line, until the sym¬ 
bol is encountered. Likewise, all 
characters following '/x' will be 
bypassed until the symbol '’ is 
detected. As a result, either form may 
be used to enclose the other; for exam¬ 
ple /Xis one comment. The 
two distinct forms of comments are use¬ 


ful to distingish different kinds 
information to the program reader. For 
example, a comment could be 

used to indicate a temporary piece of 
code, or perhaps debugging statements. 

A comment may be placed anywhere in a 
module where a blank would be accepta¬ 
ble. 


/* 

if A = 10 then (* this statement is 
for program 
debugging *) 

WRITE( T A IS EQUAL TO TEN’); 
x/ 

Example of a nested Comment 


o 


o 


of 
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Syntax 


unsigned-integer » 

--1 ~ ^ tdi gf t}- — j - 

-> i--> { b i n a r y digit}-j-> *B >- 

-> »--j-->{hex-digit} j-> ’X->- 


real-number » 

- 1 -> ’ - 1 -Xhex-digit)- 1 -> ’XR 


->{digi t}- 


-Xdigi t}- 


-Xdigi t}- 


unsigned-number* 


■> {unsigned-i nteger}- 
->{real-number}- 


string: 


L <-{character} <- 1 

-> ’ -r-> (hex-di gi t)- 1 -> ' XC 


unsigned-constant* 



> {unsigned-number}- 

>{string}- 

>{i d:constant}- 


> nil 


constant * 

- 1 -> {unsigned-constant}- 1 - 

I- j - > + --j-> {unsi gned-number}-> J 

where •’ 

{binary-digit} is '0* or * 1 f . 

{digit} is through *9»; 

{hex-digit} is ’0 T through '9 f and T A* through 'F'; 
{character} is any EBCDIC character. 


Constants can be divided into several 
categories according to the predefined 
type to which they belong. An unsigned 
number will conform to either a REAL or 
an INTEGER. Strings will conform to the 
type STRING or packed arrayCl..n] of 
CHAR. In addition, if the string is one 
character in length, it will conform to 
the type CHAR. 


If a single quote is to be used within 
a string, then the quote must be writ¬ 
ten twice. Lower case and upper case 
letters are distinct within string con¬ 
stants. String literals are not permit¬ 
ted to extend past the end of line of a 
source line. Longer strings can be 
formed by catenating shorter strings. 


14 Pascal/VS Reference Manual 













Nil is of a special type which will 
conform to any pointer type. It repres¬ 
ents a unique pointer value which is 
not a valid address. 

The constants TRUE and FALSE are prede¬ 
fined in the language and are of the 
standard type BOOLEAN. 

+ Integer hexadecimal constants are 
+ enclosed in quotes and suffixed with an 
+ 'X' or 'x'. Integer binary constants 
+ are enclosed in quotes and suffixed 
+ with a 'B* or ’b f . Such constants may 
+ be used in any context where an integer 
+ constant is appropriate. If you do not 
+ specify 8 hexadecimal digits (i.e. 4 
+ bytes)? Pascal/VS assumes that the dig- 
+ its not supplied are zeros on the left. 
+ For example? 'F’x is the value 15. 

+ Floating point hexadecimal constants 
+ are enclosed in quotes and suffixed 
+ with an 'XR' or 'xr'. Such constants 
+ may be used in any context where a real 
+ constant is appropriate. If you do not 
+ specify 16 hexadecimal digits (i.e. 8 
+ bytes)? Pascal/VS assumes that the dig- 
+ its not supplied are zeros on the 
+ right. For example? '4110’xr is the 
+ same as ' 4110000 0 0 00 0 000 'xr. 

+ String hexadecimal constants are 
+ enclosed in quotes and suffixed with an 
+ 'XC' or ’xc’. Such constants may be 
+ used in any context where a string con- 
+ stant is appropriate. There must be an 
+ even number of digits within a 
+ hexadecimal string constant? that is? 
+ you must specify each character fully 


+ that is to be in the string. 

The symbol 'E' or 'e' when used in a 
real-number expresses 'ten to the power 
of' . 


Pascal/VS permits constant expressions 
in places where the Pascal standard 
only permits constants. Constant 
expressions are evaluated and replaced 
by a single result at compile time. See 
section 8.2 on page 66 for a 
description of constant expressions. 

constant matches 

standard type 

0 

INTEGER 

-500 

INTEGER 

1.0 

REAL 

314159E-5 

REAL 

0E0 

REAL 

1.0E10 

REAL 

TRUE 

BOOLEAN 

' FF'X 

INTEGER 

'A' 

CHAR 

'ABC' 

STRING 

'C1C2C2'xc 

STRING 

'4E800000FFFFFFFF' 

xr REAL 

’ abc' 

STRING 

i » 

STRING 

i > » » 

CHAR 

i i 

CHAR 

f » 

STRING 

'Thats’'s all ' 

STRING 


Examples of Constants 
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+ 2.7 STRUCTURED CONSTANTS 



+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 



Syntax^ 


structured-constant ? 

-1->(record-structure}- 

I-> (array-structure)-> 


T 


record-structure : 
->{id : type) > 


i;. ; 


■>(constant-expr) ■ 
- <- 


:;t~T 


> ) 


array-structure: 


-> {i d: type)-> (- >1 

d- J 


"3 


>(constant-expr)—r—> : (repetition) 


ZJ 


T-> ) 


repetition : 

->(constant-expr)- 

note: must evaluate to positive integer. 


> 


> 


> 


> 


Constant structures are constants 
which are of a structured type. The 
type of the constant is determined by 
the type identifier which is used in 
its definition. These constants may be 
used in constant declarations, value 
declarations or in the executable 
statements. 

There are two kinds of constant struc¬ 
tures: one is used for arrays and the 
second is used to specify records. 


+ expression defines one field of the 
+ record. You specify one constant 
+ expression for each field of the fixed 
+ part of the record. You may omit a 
+ field of the record within the list in 
+ which case the value of that field is 
+ not defined. Restriction : You may not 
+ specify a value for any fields in a 
+ variant part; note that the tagfield is 
+ considered part of the fixed part. 

+ _ 


+ Array constants are specified by a list 
+ of constant expressions where each 
+ expression defines one element of the 
+ array. See section 8.2 on page 66 for a 
+ description of constant exepressions. 
+ You may omit an element of the array 
+ within the list in which case the value 
+ of that element is not defined. 
+ Elements may be omitted at the end of 
+ the array in which case the value of 
+ those elements are also not defined. 
+ You may follow the constant expression 
+ with a colon and a repetition expres- 
+ sion; this is used to specify that the 
+ first constant expression is to be 
+ repeated. 

+ The second kind of constant structure 
+ is used to specify records. Record con- 
"+ stants are specified by a list of con- 
s't stant expressions where each 


+ 

+ 

+ 

+ 

+ 

+ 


type 

COMPLEX = record 

RE,IM: REAL 

VECTOR = arrayC1..7) of INTEGER; 
CARRAY = arrayt0..9) of COMPLEX; 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


const 

(H Structured Constants *) 

THREEFOUR = COMPLEX(3.0,4.0); 
VECT0R_1 = VECTORC 7,0:5,1); 
VECT0R_2 = VECT0R(2>3,,4); 
VECT0R_3 = CARRAY( 

C0MPLEXC1.0,0.0), 
COMPLEX(1.0,1.0):8, 
COMPLEX(0.0,1.0 ) ); 


+ Examples of Structured Constants 


+ 
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The program is the module which gains 
initial control when the compiled 
program is invoked from the system 
loader. It is effectively a procedure 
that the loader invokes. The body of a 
program module is identical to the body 


Structure of a Module 
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of a procedure. 

+ A segment module may be compiled as a 
']■ unit independent of the program module. 
r It consists of routines that are to be 
+ linked into the final program prior to 
+ execution. Data is passed to routines 
+ through parameters and external vari- 
+ ables. Segments are useful in breaking 
+ up large Pascal/VS programs into small- 
+ er units. 

The identifier following the reserved 
word "program" must be a unique 
external name. The identifier follow¬ 
ing the reserved word "segment” may be 
the same as one of the ENTRY routines 
in the segment or may be a unique 
external name. Thus, an entry function 
called SIN could be in a segment called 
SIN. An external name is an identifier 
for a program, segment, def or ref var¬ 
iable, ENTRY routine, or EXTERNAL rou¬ 
tine. 

The optional identifier list following 
the program identifier is not used by 
Pascal/VS. The identifiers will be 


ignored. 

A program is formed by linking a pro¬ 
gram module with segment modules (if 
any) and with the Pascal/VS execution 
library and libraries that you may sup¬ 
ply. 

Pascal/VS allows declarations to be 
given in any order. This is an exten¬ 
sion to Pascal and is provided primari¬ 
ly to permit source that is INCLUDEd 
during compilation to be independent of 
any ordering already established in the 
module. The standard ordering for dec¬ 
larations is shown in the diagram for 
declarations. (For a description of the 
INCLUDE facility see section 12.1 on 
page 134 ) 

Every identifier must be. predefined or 
declared by you before it is used. 
There is one exception to this rule* a 
definition of a pointer may refer to an 
identifier before it is declared. The 
identifier must be declared later or a 
compile-time’ diagnostic will be 
produced. 




Pascal/VS program 


modules 


program-module 


_1 1 

_1 

I 

segment-modules 

_1 



-- 1 

!_ _ ! 

1 --1 

1 


1_1 

| 


_ 1 

execution-1ibrary 

_ 



[ 


program EXAMPLE; 
var 

I : INTEGER; 
begi n 

for I * = 0 to 100 0 do 
if I mod 7=0 then 
WRITELNC 1*5, 

’ IS DIVISIBLE BY SEVEN’) 

end. 

Example of a Program Module 


segment EXAMSEG; 
function COSINE 

(X*REAL )* REAL; ENTRY; 
var S* REAL; 
begi n 

S *= SINCX); 

COSINE *= SQRTC1.0 - S*S) 
end; . 

Example of a Segment Module 
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4.0 PASCAL/VS DECLARATIONS 


Pascal/VS provides you with 10 types of 

+ 

• 

def 

declarations: 

+ 

• 

ref 

• label 

+ 

• 

static 

• const 

+ 

• 

value 

• type 


• 

procedure 

• var 


• 

function 


4.1 THE LABEL DECLARATION 


o 


Syntax: 


label-del : 

-> label - 1 ->{label)- 1 -> ; -—> 

L<- , <-J 

label : 

- 1 -> {unsi gned- i nteger }- 1 -> 

L -> {i d>-> J 

Note: the values of the unsigned integer must be in the subrange 0..9999. 


A label declaration is used to declare 
labels which will appear in the routine 
and will be referenced by a goto state¬ 
ment within the routine. All labels 
defined within a routine must be 
declared in a label declaration within 
the routine. 

A label may be either an unsigned inte¬ 
ger or an identifier. If the value is 
an unsigned integer it must be in the 
range 0 to 9999. 


label 

10 , 

Label_A, 

1 , 

2 , 

Error_exit; 


A Label Declaration 
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4.2 THE CONST DECLARATION 



A constant declaration allows you to 
+ assign identifiers that are to be used 
+ as synonyms for constant expressions. 
The type of a constant identifier is 
determined by the type of the expres¬ 
sion in the declaration. 


const 


BLANK 

r 


BLANKS 

= 

i i . 

9 

FIFTY 


50; 

A 

z 

FIFTY; 

B 

r 

FIFTY x 10/C 3 + 2); 

C SQUARED 

= 

A*A + B*B; 

ORD OF A 

r 

ORDC »A»); 

PI 

r 

3.14159265358; 

MASK 

z 

* 8 0 0 0 1 X | T 0400’X; 

ALFALEN 

z 

8; 

ALPHALEN 

r 

16; 

LETTERS 

= 

C ’A 1 ..’Z’,'a'.. 

MAXREAL 


’4FFFFFFFFFFFFFFF’xr 


Constant Declarations 



o 
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4.3 THE TYPE DECLARATION 






Syntax: 





tvpe-dcl: 

r \ jv 




> type 

IT 


■ s ttype j s , 



A type declaration allows you to define 
a data type and associate a name to 
that type. Once declared, such a name 
may be used in the same way as a prede¬ 
fined type name. 



type 

(* all of the following types 
(* are predefined in Pascal/VS *) 

INTEGER = MININT..MAXINT; 

BOOLEAN = (FALSE,TRUE); 

ALFA = packed arraytl..ALFALEN3 
of CHAR; 

ALPHA = packed arrayCl..ALPHALEN3 
of CHAR; 

TEXT = file of CHAR; 

Type Declarations 
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4.4 THE VAR DECLARATION 



Syntax : 


var-dcl • 
-> var 


■q— >udi— i —> 


->(type>-> ; 


«■< 


> 


The var declaration is used to declare 
autowatic variables. Automatic vari¬ 
ables are allocated when the routine is 
invoked, and are de-allocated when the 
corresponding return is made. If the 
routine is invoked a second time, 
before an initial invocation completes 
(a recursive call), the local automatic 
variables will be allocated again in a 
stack-like manner. The variables allo¬ 
cated for the first invocation become 
inaccessible until the recursive call 
completes. 

Commas are used in the declaration to 
separate two or more identifiers that 
are being declared of the same type. 
This is a shorthand notation for two 
separate declarations. 

O You may have automatic variables 
declared in the outermost nesting (lev¬ 
el 0) of a program module. However this 
is not the case for segment modules. 


This is because a segment is used as a 
shell in which procedures are compiled 
and has no activation (call) of its 
own. You may always declare static, def 
and ref variables in the outermost lev¬ 
el of a segment. 


var 

1 : INTEGER; 

SYSIN : TEXT; 

X, 

Y, 

2 : REAL; 

CARD : 

record 

RANK : 1..13; 

SUIT s (SPADE,HEART,DIAMOND,CLUB) 
end; 

Example of a Var Declaration 
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+ 4.5 THE STATIC DECLARATION 



+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


Syntax*' 


static-dcl * 
-> static 


-<- 


-> 


—>(type)— 



> 


+ The static declaration is used to 
+ declare static variables. The vari- 
+ ables declared in this way are alio- 
+ cated prior to program execution and 
+ exist for the life of the program's 
+ execution. 

+ Static variables can be referenced 
+ according to the lexical scoping rules. 
+ Two static variables in different 
+ scopes are different variables even 
+ though they have the same name, 

+ Data in static variables that are local 
+ to a routine will be preserved over 
+ separate invocations of the routine. 
+ Such a routine called recursively will 


+ access the same instance of each static 
+ variable. 

+ Static variables may be initialized at 
+ compile-time by the use of a value dec- 
+ laration. 

+ _ 

+ static 

+ SYSPRINT : TEXT; 

+ X,Y: REAL; 

+ Example of a Static Declaration 

+ 
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+4.6 THE PEF/REF DECLARATION 


Syntax? 



The def/ref declarations are used to 
declare external variables. External 
variables are allocated prior to exe¬ 
cution and can be accessed from more 
than one module. All identifiers that 
are to be used as external names must 
be unique in the first eight charac¬ 
ters. 

If an external variable with a partic¬ 
ular name is declared in several mod¬ 
ules# a single common storage location 
will be associated with each such vari¬ 
able. An external variable must be 
declared with identical types in each 
module# the programmer is responsible 
for assuring that the types are the 
same. 

The def declaration specifies that the 
program loader is responsible for gen¬ 
erating the common storage for the var¬ 
iable. The ref declaration specifies 
that storage for the variable is 
defined in another module (or in the 
runtime environment). Ref declared 
variables will remain unresolved until 
the encompassing module is compiled and 
linked with a module in which the vari¬ 
able is declared as a def variable or 
defined in a non-Pascal CSECT or in an 
assembly language COM. The expected use 
of ref variables is to access external 
data declared in non-Pascal/VS pro¬ 
grams such as those written in assembly 
language. 

A def or ref variable may be declared 
local to a routine#* the same scope 
rules apply as for any other declared 
identifier. However# if the name of the 
variable is declared in another scope 
(even in another module) as a def or 
ref variable# both occurrences of the 
variable will reference the same stor¬ 
age . 
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+ In the following example# the variable 
+ X in procedures A# B# and C references 
+ the same storage# however# the vari- 
+ ables X declared in segment P and pro- 
+ cedure D each refer to storage that is 
+ separate from the external variable X. 

+ Def variables may be initialized at 
+ compile-time by the use of a value dec- 
+ laration. 

+ _ 

+ segment M# 

+ procedure A# 

+ def X? REAL# (X same as X in B x) 

+ begin 

+ ... 

+ end#* 

+ procedure B# 

+ def X? REAL# (X same as X in A x) 

+ begin 

+ ... 

+ end#. 


+ segment P#* 

+ static X? REAL;(x local to P x) 

+ procedure 0# 

+ ref X? REAL? (X same as X in A#BX) 

+ begin 

+ ... 

+ end# 

+ procedure D# 

+ var X? REAL# (X local to D X) 

+ begin 

+ ... 

+ end;. 


+ Examples of Def and Ref Declarations 








+ 4.7 THE VALUE DECLARATION 


+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 


+ 


Syntax: 
value-del : 

-> value--(value-assignment)-> ;-j-> 

value-assignment : 

-> (var i able)-> :=-r-> {constant-expression}-r-> 

I-> {structured-constant}->-* 

note** If the variable contains subscripts, the subscripts are limited 
to constant expressions. 


+ The value declaration is used to speci- 
+ fy an initial value for static and def 
+ variables. The declaration is composed 
+ of a list of value-assignment state- 
+ ments separated by semicolons. The 
+ assignment statements in a value decla- 
+ ration are of the same form as the 
+ assignment statements in the body of a 
+ routine except that all subscripts and 
+ expressions must be able to be evalu- 
+ ated at compile time. 

+ If a def variable is initialized with a 
+ value declaration in one module, you 
+ may not use a value declaration on that 
+ variable in another module. The compil- 
+ er will not check this violation, 
+ however a diagnostic will be generated 
+ when you combine the modules into a 
+ single load module by the system load- 
+ er. 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


type 

COMPLEX = record 

RE,IM : REAL 
end; 

VECTOR = arrayC1..7 3 of INTEGER; 

static 

C: COMPLEX; 

V: VECTOR; 

Vis VECTOR; 

def 

I : INTEGER; 

Q : arrayC1..103 of COMPLEX; 

(x the following assignments will X) 
(H take place at compile time X) 

value 

C := COMPL EX(3.0,4.0); 

V := VECTORC1,0:5,7 ); 

VI := VECTORC,,,4); 

VC21 := 2; 

V[3 3 := 3X4-1; 

I : = 0 ; 

QE13.RE := 3.1415926 / 2; 

QC13.IM := 1.414; 

Example of a Value Declaration 
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o 


o 
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5.0 TYPES 


Syntax• 
type • 

--> (i d-‘ type)- 

->(enumerated-seala i—type) 

->(subrange-seala i—type}— 

->(array-type)- 

->(record-type)- 

->(set-type)- 

->(f ile-type)- 

->(pointer-type)- 




H 


>1 


>- 

>- 

>- 

>- 

>- 


> 




A data type determines the kind of val¬ 
ues that a variable of that type can 
assume. Pascal/VS allows you to define 
new data types with the type declara¬ 
tion. The data type mechanism is a very 
important part of Pascal/VS. With it 
you can describe your data with great 
clarity. 

There are several mechanisms that can 
be used to define a type; each mech¬ 
anism allows the new data type to have 
certain properties. All data types can 
be classified as either scalar, point¬ 
er, or structured. 

You define the data type of a variable 
when the variable is declared. A previ¬ 
ous type declaration allows an identi¬ 
fier to be associated with that type. 
Such an identifier can be used wherever 
a type definition is needed- in a vari¬ 
able declaration (var, static, def, or 
ref), as a parameter, in a procedure or 
function, in a field declaration within 
a record definition, or in another type 
declaration. 


+ 5.1 A NOTE ABOUT STRINGS 


+ Standard Pascal defines a string as 
+ ’packed array(l..n] of CHAR’ where n is 
+ fixed for every string at compile time. 
+ Pascal/VS extends the notation of a 
+ string to a allow n to vary during 
+ execution from 0 up to a compile time 
+ specified maximum value. Variables can 
+ be declared as a string type by using 
+ the predefined data type STRING. 
+ Throughout this manual a reference to a 
+ string is assumed to refer to an object 


+ of the predefined type STRING as 
+ opposed to simply a ’packed array(l..n3 
+ of CHAR’. 


5.2 TYPE COMPATIBILITY 


Pascal/VS supports strong tvning of 
data. The strong typing permits 
Pascal/VS to check the validity of many 
operations at compile time; this helps 
to produce reliable programs at exe¬ 
cution time. Strong typing puts strict 
rules on what data types are considered 
to be the same. These rules, called 
type compatibi1ity , requires you to 
carefully declare data. 


5.2.1 IMPLICIT TYPE CONVERSION 


In general, Pascal/VS does not perform 
implicit type conversions on data. The 
only implicit conversions that 
Pascal/VS permits are : 

1. An INTEGER will be converted to a 
REAL when one operand of a binary 
operation is an INTEGER and the 
other is a REAL. 

2. An INTEGER will be converted to a 
REAL when assigning an INTEGER to 
a REAL variable. 

3. An INTEGER will be converted to a 
REAL if it is used in a floating 
point divide operation (’/’). 
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+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


4. An INTEGER will be converted to a 
REAL if it is passed by value or 
passed by const to a parameter 
requiring a REAL value. 

5. A string will be converted to a 
’packed array[l..n3 of CHAR' on 
assignment. The string will be 
padded with blanks on the right if 
it is shorter than the array to 
which it is being assigned. Trun¬ 
cation will raise a runtime error 
if checking is enabled. 


+ 6. A string being passed by value or 
+ passed by const to a formal param- 
+ eter that requires a ’ packed 
+ arraytl..n] of CHAR* will be con- 
+ verted. The string will be padded 
+ with blanks on the right if it is 
+ shorter than the array to which it 
+ is being passed. Truncation will 
+ raise a runtime error if checking 
+ is enabled. 


Furthermore, any object which i s of a 
set type is compatible with the empty 
set. And, any object which is a pointer 
type is compatible with the value nil. 


5.2.4 ASSIGNMENT COMPATIBLE TYPES 


A value may be assigned to a variable 
if the types are assignment compatible . 
An expression E is said to be assign¬ 
ment compatible with variable V if* 


• the types are same type and neither 
i s a file type; 

• V is of type REAL and E is compat¬ 
ible with type INTEGER; 

• Visa compatible subrange of E and 
the value to be assigned is within 
the allowable subrange of V; 


5.2.2 SAME TYPES 


Two variables are said to be of the 
same type if the declaration of the 
variables • 

• refer to the same type identifier; 

• or, refer to different type identi¬ 
fiers which have been defined as 
equivalent by a type definition of 
the form? 

type T1 = T2 


5.2.3 COMPATIBLE TYPES 


Operations can be performed between two 
values that are of compatible types . 
Two types are said to be compatible if : 

• the types are the same; 

• one type is a subrange of the other 
or they are both subranges of the 
same type; 

'• both types are strings; 

+ • one value is a string literal and 
+ the other is a ’packed arrayCl..nl 

+ of CHAR’; 

• one value is a string literal of 
one character and the other is a 
CHAR; 

• they are set types with compatible 
base types; 

• or, they are both ’packed 
arrayCl..nl of CHAR’ with the same 
number of elements. 


• V and E have compatible set types 
and all members of E are permissi¬ 
ble members of V; or, 

• Visa ’packed arrayCl..nl of CHAR’ 
and E i s a string. 


type 

X = arrayC 1..10 ] of 

INTEGER; 

DAYS = (MON, TUES, WED, THURS, 
FRI, SAT, SUN); 

WEEKDAY = MON .. FRI; 


var 



A ♦* arrayC 1. . 10 


INTEGER; 

B : 

arrayC 1. .10 ] of 


INTEGER; 

C, 


D : 

arrayC 1. . 10 1 of 


CHAR; 

E s 

X; 

F : 

X; 

Wl: 

DAYS; 

W2 • 

WEEKDAY 

i s 

compatible 


wi th 

A 

A 

B 

B 

C 

C, D 

D 

D, C 

E 

E, F 

F 

F, E 

Wl 

Wl, W2 

W2 

W2, Wl 


Examples of Compatibility 
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5.3 THE ENUMERATED SCALAR 




w 


Syntax-* 


enumerated-scalar-type - 

-> ( -1->{id>-1-> ) -> 

L<- , <-1 



An enumerated scalar is formed by list¬ 
ing each value that is permitted for a 
variable of this type. Each value is an 
identifier which is treated as a self¬ 
defining constant. This allows a mean¬ 
ingful name to be associated with each 
value of a variable of the type. 


type 


DAYS 

= (MON, 

TUES, 

WED, THURS 


FRI, 

SAT, 

SUN); 

MONTHS 

= (JAN, 

FEB, 

MAR, APR, 


MAY, 

JUN, 

JUL, AUG, 


SEP, 

OCT, 

NOV, DEC); 


var 

SHAPE -* (TRIANGLE, RECTANGLE, 

SQUARE, CIRCLE); 

REC •* record 

SUIT-* (SPADE, HEART, 

DIAMOND, CLUB); 
WEEK-* DAYS 
end; 


type being defined. The lexical scope 
of the newly defined constants is the 
same as that of any other identifier 
declared explicitly at the same lexical 
level. 

These constants are ordered such that 
the first value is less than the sec¬ 
ond, the second less than the third and 
so forth. In the first example, MON < 
TUE5 < WED < ... < SUN. There is no val¬ 
ue less than the first or greater than 
the last. 

The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 
detaiIs)* 



Function 

Section 

Paqe 


ORD 

11.4.1 

113 

+ 

MAX 

11.5.2 

117 

+ 

MIN 

11.5.1 

117 


PRED 

11.5.3 

118 


SUCC 

11.5.4 

118 

+ 

LOWEST 

11.3.3 

111 

+ 

HIGHEST 

11.3.4 

112 


MONTH : MONTHS; 

Enumerated Scalars 


An enumerated scalar type definition 
declares the identifiers in the enumei— 
ation list as constants of the scalar 


Notes : 

1. Two enumerated scalar type defi¬ 
nitions must not have any elements 
of the same name in the same lexi¬ 
cal scope. 

2. The standard type BOOLEAN is 
defined as (FALSE, TRUE). 



Types 


29 




5.4 THE SUBRANGE SCALAR 


+ 


+ 


Syntax : 

subrange-seala i—type » 

-> p ac |< e d->-j 

- 1 -Xconstant)-> .. -Xconstant-expr)- 1 -> 

L-> range -Xconstant-expr)-> ..-Xconstant-expr)- 


The subrange type is a subset of con¬ 
secutive values of a previously defined 
scalar type. Any operation which is 
permissible on a scalar type is also 
permissible on any subrange of it. 

A subrange is defined by specifying the 
minimum and maximum values that will be 
permitted for data declared with that 
type. For subranges that are packed/ 
Pascal/VS will assign the smallest num¬ 
ber of bytes required to represent a 
value of that type. 

If the reserved word range is used in 
the subrange definition/ then both the 
minimum and maximum values may be any 
expression that can be computed at com¬ 
pile time. If the range prefix is not 
employed then the minimum value of the 
range must be a simple constant. 

The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 
detaiIs)* 

Function 
ORD 

+ MAX 

+ MIN 

PRED 
SUCC 

+ LOWEST 

+ HIGHEST 


2. The number of values in a subrange 
of type CHAR is determined by the 
collating sequence of the EBCDIC 
character set. 

3. The lower bound of a subrange 
definition that is not prefixed 
with ’range 1 must be a simple 
constant instead of a generalized 
constant expression. 


const 


SIZE 


1000; 



type 

DAYS 

3 

CSU/ 

TH/ 

MO, TU, 
FR, SA); 

WE, 

MONTHS 


(JAN, 

MAY, 

SEP, 

FEB, MAR, 
JUN, JUL, 
OCT, NOV, 

APR, 

AUG, 

DEC) 

UPPER CASE 

— 

* A’ . . 

'Z ’; 


ONE HUNDRED 
CODES 

= 

0 .. 99; 
range 

CHR(O)..CHR(255); 

INDEX 

3 

packed 

1 .. SIZE+1; 

var 

WORK DAY 


MO . . 

FR; 


SUMMER 


JUN . . 

AUG; 


SMALLINT 


packed 

0..255; 


YEAR 


1900 . 

. 2000; 



Subrange Scalars 


Section 

Paqe 

11.4.1 

113 

11.5.2 

117 

11.5.1 

117 

11.5.3 

118 

11.5.4 

118 

11.3.3 

111 

11.3.4 

112 


Notes •* 

1. A subrange of the standard type 
REAL is not permitted. 
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5.5 PREDEFINED SCALAR TYPES 


5.5.1 THE TYPE INTEGER 


The following table describes the oper- apply to values which are the standard 

ations and predefined functions that type INTEGER. 




INTEGER 

operation 

form 

description 

+ 

unary 

returns the unchanged result of the operand 

+ 

binary 

forms the sum of the operands 

- 

unary 

negates the operand 

- 

bi nary 

forms the difference of the operands 

* 

binary 

forms the product of the operands 

/ 

binary 

converts the operands to REAL and produces 
the REAL quotient 

di v 

binary 

forms the integer quotient of the operands 

mod 

binary 

forms the integer modulus of the operands 

= 

binary 

compares for equality 

<> or - = 

binary 

compares for inequality 

< 

binary 

compares for less than 

< = 

binary 

compares for less than or equal to 

> = 

binary 

compares for greater than or equal to 

> 

binary 

compares for greater than 


unary 

returns one’s complement on the operand 

1 

binary 

returns 'logical or* on the operands 

& 

binary 

returns 'logical and' on the operands 

&& 

binary 

returns 'logical xor' on the operands 

<< 

binary 

returns the left operand value shifted 
left by the right operand value 

>> 

binary 

returns the left operand value shifted 
right by the right operand value 

CHR(x) 

function 

returns a CHAR whose EBCDIC representation is x 

PRED(x) 

function 

returns x-1 

SUCCCx) 

function 

returns x+1 

ODD(x) 

function 

returns TRUE if x is odd and FALSE otherwise 

ABS(x) 

function 

returns the absolute value of x 

SQR(x) 

function 

returns the square of x 

FLOAT(x) 

f unction 

returns a REAL whose value is x 

MINC ) 

function 

returns the minimum value of two or more operands 

MAX( ) 

function 

returns the maximum value of two or more operands 

LOWEST(x) 

function 

returns MININT or the minimum value of the range 
if x is a subrange of INTEGER 

HIGHEST(x) 

function 

returns MAXINT or the maximum value of the range 
if x is a subrange of INTEGER 

SIZEOFCx) 

function 

returns the number of bytes required for a value 
of the type of x, which is always 1, 2 or 4 


The type INTEGER is provided as a pre¬ 
defined type in Pascal/VS. This type 
represents the subset of whole numbers 
as defined below- 

type 

INTEGER = MININT..MAXINT; 

where MININT is a predefined INTEGER 
constant whose value is -2147483648 and 
MAXINT is a predefined INTEGER constant 
whose value is 2147483647. That is, the 
predefined type INTEGER represents 32 


bit values in 2*5 complement notation. 

Type definitions representing integer 
subranges may be prefixed with the 
reserved word "packed". For variables 
declared with such a type, Pascal/VS 
will assign the smallest number of 
bytes required to represent a value of 
that type. The following table defines 
the number of bytes required for dif¬ 
ferent ranges of integers. For ranges 
other than those listed, use the first 
range that encloses the desired range. 
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Given a type definition T as: 


Notes: 


S' \ 

u 


type 

T = packed i ..j; 


Range of 
i . • j 

Size in 
bytes 

A1ignment 

0. .255 

1 

BYTE 

-128..127 

1 

BYTE 

-32768..32767 

2 

HALFWORD 

0, .65535 

2 

HALFWORD 

otherwise 

4 

FULLWORD 


1. The operations of div and mod are 
defined as: 

A div B = TRUNCCA/B ), B<>0 

A mod B = A-B*(A div B)» A>=0,B>0 
A mod B = B-abs(A) mod B» A<0,B>0 

B=0 when doing a div operation or 
B< = 0 when doing a mod operation 
is defined as an error and will 
cause a runtime error message to 
be produced. 

2. The following operators perform 
logical operations: 

<< shift left logical 
>> shift right, logical 
- 1 T s complement 

| logical inclusive or 

i logical and 

&& logical exclusive or 

The operands are treated as 
unsigned strings of binary dig¬ 
its. See section 8.4 for more 
details on logical expressions. 
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5.5.2 THE TYPE CHAR 


The following table describes the oper- apply to the standard type CHAR, 

ations and predefined functions that 





CHAR 


operation 

form 

description 


r 

binary 

compares for equality 


<> or -’ = 

binary 

compares for inequality 


< 

binary 

compares for left less than right 


< = 

binary 

compares for left less than or equal to right 


> = 

binary 

compares for left greater than or equal to right 


> 

binary 

compares for left greater than right 


ORD(x) 

function 

converts operand to an INTEGER based on ordering 
sequence of underlying character set. 


PRED(x) 

function 

returns the preceding character 
in collating sequence 


SUCC(x) 

function 

returns the succeeding character 
in collating sequence 

+ 

STR(x) 

function 

converts the operand to a STRING 

+ 

MINC ) 

function 

returns the minimum value of two or more operands 

+ 

MAX( ) 

function 

returns the maximum value of two or more operands 

+ 

+ 

LOWEST(x) 

function 

returns the minimum value of the range of the 
character x 

+ 

+ 

HIGHEST(x) 

function 

returns the maximum value of the range of the 
character x 

+ 

+ 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of a CHAR/ which is always 1 


The type CHAR is defined as a value memory and will be aligned on a byte 

from the EBCDIC character set. Vari- boundary, 

ables of this type occupy one byte of 
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5.5.3 THE TYPE BOOLEAN 


The following table describes the oper- apply to the standard type BOOLEAN, 

ations and predefined functions that 





BOOLEAN 


operation 

form 

description 


- 

unary 

returns TRUE if the operand is FALSE, 
otherwise it returns FALSE 


& 

binary 

returns TRUE if both operands are TRUE 


1 

binary 

returns TRUE if either operand is TRUE 

+ 

&& 

binary 

returns TRUE if either, but not both operands are TRU 


r 

bi nary 

compares for equality 


<> or -- 

binary 

compares for inequality 


< 

binary 

compares for left less than right 


< = 

binary 

compares for left less than or equal to right 


> = 

binary 

compares for left greater than or equal to right 


> 

binary 

compares for left greater than right 


ORD(x) 

function 

returns 0 if x is FALSE and 1 if x is TRUE 

+ 

MIN( ) 

function 

returns TRUE if all operands are TRUE 

+ 

MAX( ) 

function 

returns FALSE if all operands are FALSE 

+ 

LOWEST(x) 

function 

returns the FALSE by definition 

+ 

HIGHEST(x) 

function 

returns the TRUE by definition 

+ 

+ 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of a BOOLEAN, which is always 1 




Binary 

Operations on BOOLEAN 



FALSE FALSE 

FALSE TRUE 

TRUE FALSE 

TRUE TRUE 

Name 

s • 

TRUE 

FALSE 

FALSE 

TRUE 

Equivalence 

<> 

FALSE 

TRUE 

TRUE 

FALSE 

Exclusive Or 

< 

FALSE 

TRUE 

FALSE 

FALSE 


< = 

TRUE 

TRUE 

FALSE 

TRUE 

Implicat i on 

> = 

TRUE 

FALSE 

TRUE 

TRUE 


> 

FALSE 

FALSE 

TRUE 

FALSE 


& 

FALSE 

FALSE 

FALSE 

TRUE 

And 

1 

FALSE 

TRUE 

TRUE 

TRUE 

Inclusive Or 


FALSE 

TRUE 

TRUE 

FALSE 

Exclusive Or 


This type is predefined as-* 
type 

BOOLEAN = (FALSE,TRUE); 

The type BOOLEAN is defined as a scalar 
whose values are FALSE and TRUE. Vari¬ 
ables of this type will occupy one byte 
of memory and will aligned on a byte 
boundary. The relational operators 
form valid boolean functions as shown 


in the table of binary operations. 

Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving 
(and) and 1 | T (or) such that the right 
operand expression will not be evalu¬ 
ated if the result of the operation can 
be determined by evaluating the left 
operand. For more details see section 
8.3 on page 67. 
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5.5.4 THE TYPE REAL 


/^\ 

The fol lowing table describes the oper- apply to the standard type REAL, 
ations and predefined functions that 




REAL 

operation 

form 

description 

+ 

unary 

returns the value of the operand 

+ 

binary 

forms the sum of the operands 

- 

unary 

negates the operand 

- 

binary 

forms the difference of the operands 

X 

binary 

forms the product of the operands 

/ 

bi nary 

forms the REAL quotient of the operands 


binary 

compares for equality 

<> or - = 

binary 

compares for inequality 

< 

binary 

compares for left less than right 

< = 

binary 

compares for left less than or equal to right 

> = 

binary 

compares for left greater than or equal to right 

> 

binary 

compares for left greater than right 

TRUNC(x) 

f unction 

returns the operand value truncated to an INTEGER 

ROUND(x) 

function 

returns the operand value rounded to an INTEGER 

ABS(x) 

f unction 

returns the absolute value of the operand 

SIN(x) 

function 

returns the trigonometric sine of x (radians) 

COSCx) 

function 

returns the trigonometric cosine of x (radians) 

ARCTAN(x) 

function 

returns (radians) the arc tangent of x 

LN(x) 

function 

returns the natural logarithm of x 

EXP(x) 

function 

returns natural log base raised to the x power 

SQRT(x) 

function 

returns square root of x 

SQR(x) 

function 

returns the square of x 

MIN( ) 

function 

returns the minimum value of the operands 

MAX( ) 

function 

returns the maximum value of the operands 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of a REAL, which is always 8 



The type REAL represents floating point 
data. Variables of this type will occu¬ 
py eight bytes of memory and will be 
aligned on a double word boundary. All 
REAL arithmetic is done using 370 long 
floating point. See section 5.2.1 on 
page 27 for implicit type conversions. 


The type REAL has restrictions that 
other scalar types do not have. You may 
not take a subrange of REAL nor index 
an array by REAL. The predefined func¬ 
tions SUCC, PRED, ORD, HIGHEST and LOW¬ 
EST are not defined for type REAL. 
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5.6 THE ARRAY TYPE 


Syntax •* 


array-type • 

- — > packed - 1 

-> array C - 1 -> (index-type)- 1 -> 3 of ->{typeJ -> 

L<- , <- 1 

index-type » 

-> (enumerated-sea lai—type)- >~i 

-> (i d : sea la i—type)->i-> 

-> (subrange-scalai—type)- 


The array type defines a list of homo¬ 
geneous elements; each element is 
paired with one value of the index. An 
element of the array is selected by a 
subscript. The number of elements in 
the array is the number of values 
potentially assumable by the index. 
Each element of the array is of the 
same type, which is called the element 
type of the array. Entire arrays may be 
assigned if they are of the same type. 

Pascal/VS uses square brackets, ’I 1 and 
f 3 T , in the declaration of arrays. 
Because these symbols are not directly 
available on many I/O devices, the sym¬ 
bols and f .) f may be used as an 

equivalent to square brackets. 

Pascal/VS will align each element of 
the array, if necessary, to make each 
element fall on an appropriate bounda¬ 
ry. A packed array will not observe the 
boundary requirements of its elements. 
Elements of packed arrays may not be 
passed as var parameters to routines. 

An array which is defined with more 
than one index is said to be a multi¬ 
dimensional array. A multi-dimen¬ 
sional array is exactly equivalent to 
an array of arrays. In short, an array 
definition of the form 

arrayti,j , . . . 3 of T 
is an abbreviated form of 

array!i3 of 
array(j3 of 
. . . T 

where i and j are scalar type defi¬ 
nitions. Thus, the first and second 
type declarations in the example below 
are alternatives to the same structure. 


type 

MATRIX = array! 1..10, 1..10 3 of 
REAL; 

MATRIXO = array! 1..10 3 of 

array! 1..10 3 of 
REAL; 

ABLE = arrayIBOOLEAN3 of INTEGER; 

COLOR = (RED, YELLOW, BLUE); 

INTENSITY = packed array!C0L0R3 
of REAL; 

ALFA = packed array! 1..ALFALEN3 of 
CHAR; 

Examples of Array Declarations 


There are two procedures available for 
conversion between a packed array and a 
similar but unpacked array. The prede¬ 
fined procedures PACK (section 11.2.1) 
and UNPACK (section 11.2.2) are pro¬ 
vided for this purpose. 


5.6.1 ARRAY SUBSCRIPTING 


Array subscripting is performed by 
placing an expression in square brack¬ 
ets following an array variable. The 
expression must be of a type that is 
compatible with the index type and 
evaluate to one of the values of the 
index. (See section 7.1 on page 57). 
The index may be any scalar type except 
REAL. 
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M 

HUE 


: MATRIX; 

* INTENSITY; 


begi n 

assign ten element array x) 

MC13 := MC23; 

(X assign one element of a two X) 
(X dimensional array two ways X) 
MCI,13 •= 3.14159; 

MC13C13 := 3.14159; 

(X this is a reddish orange X) 

HUECRED3 := 0.7; 

HUECYELL0W3 := 0.3; 

HUECBLUE3 := 0.0; 

Examples of Array Indexing 



c 
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5.7 THE RECORD TYPE 


A record is a data structure which is 
composed of heterogeneous components; 
each element may be of a different 
type. Components of a record are 
called fields. 


5.7.1 NAMING OF A FIELD 


A field is referred to by the name of 
the field. The scope of the identifiers 


used as names is the record type 
itself. That is, every field name with¬ 
in a record must be unique, even if 
that name appears in a variant part. 

+ A field of a record need not be named; 

+ that is, the field identifier may be 
+ missing. In such a case, the field only 

+ serves as padding; it can not be refer 
+ enced. 


o 
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type 

REC = record 
A, 

B : INTEGER; 

•* CHAR; (^unnamed*) 

C : CHAR 
end; 

DATE = record 

DAY : 1..31; 

MONTH : 1..12; 

YEAR : 1900..2100 
end; 

PERSON = record 
LAST_NAME, 

FIRST_NAME * ALFA; 

MIDDLE_INITIAL : CHAR; 

AGE : 0..99; 

EMPLOYED •* BOOLEAN 

end; 

Simple Record Declarations 


5.7.2 FIXED PART 


The fixed part of a record is a series 
of fields common to all variables of a 
given record type. The fixed part, if 
present, is always before the variant 
part. 


5.7.3 VARIANT PART 


The variant part of a record permits 
the defining of an alternative struc¬ 
ture to the record. The record struc¬ 
ture adopts one of the variants at a 
time. 

The variant part of a record is denoted 
with the case symbol. A tag field iden¬ 
tifier may follow. The value of this 
field indicates which variant is 
intended to be active. 

The tag field is a field in the fixed 
part of the record. When the tag field 
is followed by a type identifier, then 
the tag field defines a new field with¬ 
in the record. 

+ If the type identifier is missing, then 
+ the tag field name must be one which 
+ was previously defined within the 
+ record. This allows you to place the 
+ tag field anywhere in the fixed part of 
+ the record. 

A variant part of a record need not 
have a tag field at all. In this case, 
only a type identifier is specified in 


the case construct. You still refer to 
the variant fields by their names but 
it is your responsibility to keep track 
of which variant is ’active* (i.e. con¬ 
tains valid data) during execution. 

In short, tag fields may be defined in 
the following ways : 

• ’’case I ’ INTEGER of” results in I 
being a tag field of type INTEGER. 

• ’’case INTEGER of” means no tag 
field is present, the variants are 
denoted by integer values in the 
variant declaration. 

• "case I: of” means that I is the 
tag field and it must have been 
declared in the fixed part, the 
type of I is as given in the field 
definition of I. 

The following examples illustrate the 
three tag fields in complete record 
definitions. 


type 

SHAPE = (TRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 

COORDINATES = 

(* fixed part! *) 

record 

X,Y i REAL; 

AREA • REAL; 

case S : SHAPE of 

(* variant part: X) 

TRIANGLE: 

(SIDE : REAL; 

BASE « REAL); 

RECTANGLE: 

(SIDEA,SIDEB : REAL); 

SQUARE: 

(EDGE : REAL); 

CIRCLE: 

(RADIUS : REAL) 

end; 

A Record With a Variant Part 


The record defined as COORDINATES in 
the example above contains a variant 
part. The tag field is S, its type is 
SHAPE, and its value (whether TRIANGLE, 
RECTANGLE, SQUARE, or CIRCLE) indi¬ 
cates which variant is in effect. The 
fields SIDE, SIDEA, EDGE, and RADIUS 
would all occupy the same offset within 
the record. The following diagram 
illustrates how the record would look 
in storage. 
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fixed part 


tag field* 


AREA 


variant part* 


SIDE 

SIDEA 

EDGE 

RADIUS 

BASE 

SIDEB 



Each column in the variant represents 
one alternative for the variant. 


+ If you preferred the tag field to be 
+ the first field instead of the fourth, 
+ you could define it as follows* 

+ 


COORDINATES = 
record 

X,Y * REAL; 

AREA * REAL; 
case SHAPE of 

(H variant part* X) 

TRIANGLE* 

(SIDE * REAL; 

BASE * REAL); 

RECTANGLE* 

(SIDEA,SIDEB * REAL); 

SQUARE* 

(EDGE * REAL); 

CIRCLE* 

(RADIUS * REAL) 

end; 

Record Variant with No Tag Field 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 



+ 

+ 


COORDINATES = 
record 

S * SHAPE; 

X,Y * REAL; 

AREA * REAL; 

case S * of 

(* variant part* JO 

TRIANGLE* 

(SIDE * REAL; 

BASE * REAL); 

RECTANGLE* 

(SIDEA,SIDEB * REAL); 

SQUARE* 

(EDGE * REAL); 


5.7.4 PACKED RECORDS 


The fields in a record are normally 
assigned offsets sequentially, padding 
where necessary for boundary align¬ 
ment. In packed records, however, no 
such padding is done. This may save 
storage within the record, but may 
degrade performance of the program. 
Fields of packed records may not be 
passed as var parameters to a routine. 


+ CIRCLE* 

+ (RADIUS * REAL) 

+ end; 

+ Record with Back Reference 

+ Tag Field 

+ __ 


If you preferred the tag field to be 
absent altogether you could define the 
record as follows* 


+5.7.5 OFFSET QUALIFICATION OF FIELDS 


+ Pascal/VS provides you a method of 
+ forcing the fields of a record to begin 
+ at a specified byte offset in the 
+ record. A field name may be followed by 
+ a integer constant expression enclosed 
+ in parentheses which represents the 
+ byte offset within the record that the 
+ field is to represent. All fields so 
+ specified must be in consecutive order 
+ according to offsets. If the offset is 
+ not specified, the field will be 
+ assigned the next offset that is 
+ required for boundary alignment. If an 
+ offset specification attempts to 
+ assign an incorrect boundary for a 
+ field and the record is not packed, a 
+ compile time error will be raised. 


+ As an example of offset qualified 
+ fields within a record, consider a 
+ large control block of 100 bytes, in 
+ which four fields at various offsets 
+ need to be referenced. 
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+ byte 

+ displacement information 


+ 

+ 

0 

field 

A 

(integer) 

+ 

36 

f i eld 

B 

(8 chars) 

+ 

80 

field 

C 

(4 flags) 

+ 

92 

field 

D 

(integer) 



+ The control block might be represented 
+ in Pascal/VS as follows*' 


+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


type 

FLAGS = set of 

(F1,F2,F3,F4); 

PADDING = packed arrayCl..43 of 
CHAR; 

CB = packed record 

A : INTEGER; 

B(36) : ALFA; 

C(80) : FLAGS; 

D( 92) •* INTEGER; 

: PADDING 

end; 

var 

BLOCK * CB; 


+ A Record with Offset Qualified 

+ Fields 


+ 
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o 


Syntax* 


set-type * 


> packed 



> 


set of ->{base-scalai—type} 


> 


base-scalar-type * 

-> (enumerated-scalai—type}->-i 

-> {i d* scalar-type}->i-> 

-> {subrange-sea lai—type}-> J 


A variable whose type is a set may con¬ 
tain any combination of values taken 
from the base scalar type . A value is 
either in the set or it is not in. 

Note* Pascal/VS sets can be used in 
many of the same ways as bit strings 
(which often tend to be machine depen¬ 
dent). For example, a set operation 
such as intersection (the operator is 
’**) is the same as taking the ’boolean 
and* of two bit strings. 


The following table describes the opei— 
ations that apply to the variables of a 
set type. 



type 

CHARS 

DAYSOFMON 

DAYSOFWEEK 

FLAGS 


set of CHAR; 
packed set of 1..31; 
set of MONDAY..FRIDAY; 
set of 

(A,B,C,D,E,F,G,H); 


Set Declarations 


+ 

+ 

+ 





Set Operators 

operation 

form 

description 

- 

unary 

returns the complement of the operand 

r 

binary 

compares for equality 

<> or - = 

binary 

compares for inequality 

< = 

binary 

returns TRUE if first operand is subset of 
second operand 

> = 

bi nary 

returns TRUE if first operand is superset of 
second operand 

i n 

binary 

TRUE if first operand (a scalar) is a member in 
the set represented by the second operand 

+ 

binary 

forms the union of two sets 

x 

binary 

forms the intersection of two sets 

- 

binary 

forms the difference between two sets 

&& 

bi nary 

forms an ’exclusive* union of two sets 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of x 


Set union produces a set which contains 
all of the elements which are members 
of the two operands. Set intersection 


produces the set that contains only the 
elements common to both sets. Set dif¬ 
ference produces the set which includes 
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all elements from the left operand 
except those elements which are members 
of the right operand. Set exclusive 
union produces the set which contains 
all elements from the two operands 
except the elements which are common to 
both operands. The in operator tests 
for membership of a scalar within a 
set; if the scalar is not a permissible 
value of the set and checking is ena¬ 
bled* then a runtime diagnostic will 
result. 

The storage and alignment required for 
a set variable is dependent on the 
scalar type on which the set is based. 
The amount of storage required for a 
packed set will be the minimum number 
of bytes needed to contain the largest 
member of the set. Given a set defi¬ 
nition ’ 

type 

S = set of BASE; 

where BASE is a scalar type which is 
not a subrange 

the ordinal value of the largest member 
M which is in the set is ; 

M := 0RD(HIGHEST(BASE)) 

The following table indicates the map¬ 
ping of a set variable as a function of 
M. 



Range of 

M 

Size in 
Bytes 

Alignment 

0 <= M <= 7 

1 

BYTE 

8 <= M <= 15 

2 

HALFWORD 

16 <= M <= 23 

3 

FULLWORD 

24 <= M <= 31 

4 

FULLWORD 

32 <= M <= 255 

(M+7 ) 
div 8 

BYTE 


Unpacked sets based upon integer (or 
subranges of integers) will occupy 32 
bytes. The maximum value of a member of 
a set of integer may not exceed 255. 

The storage is the same for all 
unpacked sets of subranges of a base 
scalar type. The following illustrates 
thi s point. 


Gi ven •' 
type 

T = set of t; 

S = set of s; 

Where: 

t is a subrange of s. 

The types T and S have identical stor¬ 
age mappings. 
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5.9 THE FILE TYPE 



All input and output in Pascal/VS use 
the file type. A file is a structure 
consisting of a sequence of components 
where each component is of the same 
type. Variables of this type reference 
the components with pointers called 
file po inters . A file pointer could be 
thought of as a pointer into an 
input/output buffer. 

The association of a file variable to 
an actual file of the system is imple¬ 
mentation dependent and will not be 
described in this manual. Refer to the 
Programmer’s Guide for this informa¬ 
tion. 


type 

TEXT = file of CHAR; 

LINE = file of 

packed arraytl.,803 of 
CHAR; 

PFILE = file of 
record 

NAME* packed 

arrayC1..251 of 
CHAR; 

PERS0N_N0*INTEGER; 
DATE_EMPLOYED*DATE; 
WEEKLY__SALARY* INTEGER 
end; 

File Declarations 


You access the file through predefined 
procedures and functions, (see section 
10.0 on page 93) They are* 


• GET (Section 10.6) 

• PUT (Section 10.7) 

• EOF (Section 10.8) 

• EOLN (Section 10.13) 

• RESET (Section 10.1) 

• REWRITE (Section 10.2) 

+ • INTERACTIVE (Section 10.3) 
+ • OPEN (Section 10.4) 

+ • CLOSE (Section 10.5) 

• READ (Section 10.9) 

• WRITE (Section 10.11) 


OUTPUT is predefined as a TEXT file 
variable. This is the file which will 
receive Pascal/VS execution time diag¬ 
nostics. 

Pascal/VS enforces the following 
restrictions on the file type* 

1. A file may be passed by var or 
passed by const* but never by 
value to a procedure or function. 

2. A file may not be an element of an 
array. 

3. A file may not be a field of a 
record. 

4. A file may not be contained within 
a file. 
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5.10 PREDEFINED STRUCTURE TYPES 


+5.10.1 THE TYPE STRING 


Syntax •* 




strinq-type: 

—> STRING-y-> ( 

->(constant-expr)-> ) 



i 

i 

V 

«- 



+ The type STRING is defined as a ’packed + 

+ array[l..nl of CHAR 1 whose length + 

+ varies at execution time up to a com- + 

+ pile time specified maximum. The length + 

+ of the array is obtained during exe- + 

+ cution by the LENGTH function (section + 

+ 11.6.1). The length is managed implic- 
+ itly by the operators and functions + 

+ which apply to STRINGS. The length of a 
+ STRING variable is determined when the + 

+ variable is assigned. By definition* + 

+ string constants belong to the type + 

+ STRING. + 

+ 

+ STRING variables may be subscripted to + 

+ retrieve individual characters. Upon + 

+ subscripting* the variable behaves as + 

+ though it were declared as a ’packed + 

+ arrayCl..n3 of CHAR’* where n is the + 

+ current length of the STRING. + 

+ 

+ The constant expression which follows + 

+ the STRING qualifier in the type defi- + 

+ nition is the maximum length that the + 

+ string may obtain and must be in the + 

+ range of 1 to 255. If the value is not + 

+ specified* the maximum length of 255 is + 

+ assumed. + 

+ 

+ Any variable of a STRING type is com- + 

+ patible with any other variable of a + 

+ STRING type; that is* the maximum 
+ length field of a type definition has + 
+ no bearing in type compatibility tests. 

+ 

+ Implicit conversion is performed when 
+ assigning a STRING to a packed 
+ arrayCl..n] of CHAR’. All other convei— + 

+ sion must be done explicitly. + 

+ 


The assignment of one string to another 
may cause a run time error if the actu¬ 
al length of the source string is 
greater then the maximum length of the 
target. Pascal/VS will never truncate 
implicitly. 


function GETCHARC 

const S s STRING; 

IDX s INTEGER) : CHAR; 

begi n 

GETCHAR : = SCIDX] 
end; 


var 

Si: STRING(IO); 

S2: STRINGC5)* 

C: CHAR; 
begi n 

SI := ’MESSAGE:’; 

C := GETCHAR(S1,4)* 
(* C assigned ’S* K) 


52 *:= ’FIVE’; 

C := GETCHARCS2* 2); 

(* C assigned ’I* *) 
end; 

Usage of STRING Variables 


The following table describes the opei— 
at ions and predefined functions that 
apply to the variables of type STRING. 
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STRING 


operation 

form 

description 

= 

binary 

compares for equality* 

<> or - = 

binary 

compares for inequality+ 

< 

binary 

compares for left less than right+x 

< = 

bi nary 

compares for left less than or equal to right+x 

> = 

binary 

compares for left greater than or equal to right+x 

> 

binary 

compares for left greater than right+x 

1 1 

binary 

catenates the operands 

LENGTH 

function 

returns the length of the STRING 
(section 11.6.1# page 124) 

LBOUND 

function 

returns the value 1, STRINGS always have a lower 
bound of one (section 11.3.1, page 110) 

HBOUND 

function 

returns the declared maximum number of elements of 
the string (section 11.3.2, page 111) 

SUBSTR 

function 

returns a specified portion of a STRING 
(section 11.6.2, page 124) 

DELETE 

function 

returns a STRING with a portion removed 
(section 11.6.2, page 124) 

TRIM 

function 

returns a STRING with trailing blanks removed 
(section 11.6.4, page 125) 

LTRIM 

function 

returns a STRING with leading blanks removed 
(section 11.6.5, page 126) 

COMPRESS 

function 

returns a STRING with multiple blanks removed 
(section 11.6.6, page 126) 

INDEX 

function 

locates a STRING in another STRING 
(section 11.6.7, page 127) 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of x 

+ If two STRINGS being c 

:ompared are of different lengths, the 

shorter is 

assumed to 

be padded with blanks on the right 

until the ! 

engths match. 

X Relative magnitude of 
sequence of EBCDIC. 

two strings is based upon the collating 


STRING 

Conversions witf 

i Relational Operators 

relational 

RIGHT OPERAND 

packed 

I I arrayE1..n3 of 1 


L operations 

CHAR 

CHAR 

STRING 

£ 

F CHAR 

T 

allowed 

not permitted 

use STR on 
the CHAR 

0 packed 

P array!1..n] of 

E CHAR 

R 

not permitted 

okay if the 
types are 
compatible 

use STR on 
the array 

A STRING 

N 

D 

use STR on 
the CHAR 

use STR on 
the array 

allowed 
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T 

+ 

STRING Conversions on Assignment 

+ 


FROM 


+ 



packed 


+ 



arrayC1. .n3 of 


+ 

assignment 

CHAR 

CHAR 

STRING 

+ 

T CHAR 

al lowed 

not permitted 

use string 

+ 




indexing to 

+ 

+ 

0 



obtain char 

+ 

+ 

packed 

not permitted 

okay if the 

okay, STRING is 

+ 

arraytI..n] of 


types are 

converted. If 

+ 

CHAR 


compatible 

truncation is 

+ 




required, then 

+ 

+ 




an error results 

+ 

+ 

STRING 

use STR to 

use STR to 

allotted 

+ 


convert CHAR 

convert array 


+ 

± ■ 


to a STRING 

to a STRING 




o 
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+ 5.10.2 THE TYPE ALFA 


o 

The standard type ALFA is defined as! 
+ const 

+ ALFALEN = 8; 

+ type 

+ ALFA = packed 

+ arrayCl..ALFALEN] of 

+ CHAR; 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ Any f packed arrayCl..n] of CHAR'S 
+ including ALFA, may be converted to 
+ type STRING by the predefined function 
+ STR. The following table describes the 
+ operations and predefined functions 
+ that apply to the variables of the pre- 
+ defined type ALFA. 




ALFA 

operation 

form 

description 

= 

binary 

compares for equality 

<> or -= 

binary 

compares for inequality 

< 

binary 

compares for left less than right 

< = 

binary 

compares for left less than or equal to right 

> = 

binary 

compares for left greater than or equal to right 

> 

binary 

compares for left greater than right 

STR(x) 

function 

converts the ALFA to a STRING 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of an ALFA, which is always 8 


o 
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+ 5.10.3 THE TYPE ALPHA 


+ The standard type ALPHA is defined as! 
+ const 

+ ALPHALEN = 16; 

+ type 

+ ALPHA = packed 

+ arrayCl..ALPHALEN] of 

+ CHAR; 


T 

+ 



ALPHA 

+ 

operation 

form 

description 

+ 

= 

binary 

compares for equality 

+ 

<> or *’ = 

binary 

compares for inequality 

+ 

< 

binary 

compares for left less than right 

+ 

< = 

bi nary 

compares for left less than or equal to right 

+ 

> = 

binary 

compares for left greater than or equal to right 

+ 

> 

binary 

compares for left greater than right 

+ 

STR(x) 

function 

converts the ALPHA to a STRING 

+ 

+ 

4 . 

SIZEOF(x) 

function 

returns the number of bytes required for a value 
of the type of an ALPHA, which is always 16 


+ Any 'packed arrayCl..n] of CHAR*, 
+ including ALPHA, may be converted to 
+ type STRING by the predefined function 
+ STR. The following table describes the 
+ operations and predefined functions 
+ that apply to the variables of the pre- 
+ defined type ALPHA. 



o 
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5.10.4 THE TYPE TEXT 



The standard type TEXT is defined as: 


REWRITE (Section 10.2) 


type 

TEXT = file of CHAR; 


READ (Section 10.9) 
READLN (Section 10.9) 


In addition to the predefined proce¬ 
dures to do input and output, Pascal/VS 
defines several procedures which oper¬ 
ate only on files of type TEXT. These 
procedures perform character to 
internal representation (EBCDIC) 
conversions and gives you some control 
over output field lengths. The prede¬ 
fied routines that may be used on TEXT 
f i les are>* 

• GET (Section 10.6) 

• PUT (Section 10.7) 

• EOF (Section 10.8) 

• EOLN (Section 10.13) 


+ 

+ 

+ 

+ 


WRITE (Section 10.11) 
WRITELN (Section 10.11) 
PAGE (Section 12.5) 
INTERACTIVE (Section 10.3) 
OPEN (Section 10.4) 

CLOSE (Section 10.5) 

COLS (Section 10.15) 


Pascal/VS predefines two TEXT vari¬ 
ables named OUTPUT and INPUT. You may 
use these files without declaring them 
in your program. 


RESET (Section 10.1) 



o 
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5.11 THE POINTER TYPE 



Syntax* 


pointei—type * 

-> -> ->{id : type)-> 



Pascal/VS allows variables to be cre¬ 
ated during program execution under 
your explicit control. These vari¬ 
ables* which are called dvnamic var i - 
ables > are generated by the predefined 
procedure NEW. NEW creates a new vari¬ 
able of the appropriate type and 
assigns its address to the argument of 
NEW. You must explicitly deallocate a 
dynamic variable; the predefined pro¬ 
cedures DISPOSE and RELEASE are pro¬ 
vided for this purpose. 

+ Dynamic variables are created in an 
+ area of storage called a heap . A new 
+ heap is created with the MARK prede- 
+ fined procedure; a heap is released 
+ with the RELEASE predefined procedure. 
+ A initial heap is allocated by 
+ Pascal/VS. All variables that were 
+ allocated in a heap are deallocated 
+ when the heap is released. An attempt 
+ to use a dynamic variable that has been 
+ deallocated (either via DISPOSE or 
+ RELEASE) is an error. Refer to section 
+ 11.1.1* page 106 for details on MARK# 
+ RELEASE, DISPOSE and NEW. 

Pascal/VS pointers are constrained to 
point to a particular type. This means 
that on declaration of a pointer, you 
must specify the type of the dynamic 
variable that will be generated by NEW 
or referenced. 

Pascal/VS defines the named constant 
nil as the value of a pointer which 
does not point to any dynamic variable 
(empty pointer). Nil is type compatible 
to every pointer type. 


The only operators that can be applied 
to variables of pointer type are the 
test for equality and inequality. The 
predefined function ORD may be applied 
to a pointer variable; the result of 
the function is an integer value which 
is equal to the address of the dynamic 
variable referenced by the pointer. 
There is no function in Pascal/VS to 
convert an integer into a pointer. 


type 

PTR = -> ELEMENT; 

ELEMENT = record 

PARENT : PTR; 
CHILD * PTR; 
SIBLING* PTR 
end; 

A Pointer Declaration 


This example illustrates a data types 
that can be used to build a tree. With 
this structure the parent node contains 
a pointer to the eldest child* the 
eldest points to the next sibling who 
points to the next* and so forth. 

In the above example type ELEMENT was 
used before it was declared. Referenc¬ 
ing an identifier prior to its declara¬ 
tion is generally not permitted in 
Pascal/VS. However, a type identifier 
which is used as the base type to a 
pointer declaration is an exception to 
this rule. 
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5.12 STORAGE , PACKING , AND ALIGNMENT record are allocated on the next byte, 

ignoring alignment requirements. 



For each variable declared with a pai— 
ticular type, Pascal/VS allocates a 
specific amount of storage on a specif¬ 
ic alignment boundary. The Program¬ 
mer’s Guide describes implementation 
requirements and defaults. 


Pascal/VS provides the packed record 
feature in which all boundary alignment 
is suppressed. Fields of a packed 


Packed data occupies less space and is 
more compact but may increase the exe¬ 
cution time of the program. Moreover, a 
field of a packed record or an element 
of a packed array may not be passed by 
read/write reference (var) to a rou¬ 
tine. 



o 
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6.0 ROUTINES 



o 


Syntax: 


routine-dcl : 


■> {procedure-headi ng}- 
•> {functi on-headi ng} — 


:>] 


r<- 


; <■ 


-> EXTERNAL —> ; - 

-> FORTRAN-> ; - 

-> ENTRY-> ;-> 

-<- 

—> FORWARD -> ; — 


K- 


-> (dec la rat i on)->-^ 

•>{compound-statement}-> j 


1 -> {formal}- 

L<- ; <— 




formal • 


■U 




procedure-headi ng -' 

-> procedure ->{id}->{formal-parameters}- 

function-heading : 

-> function ->{id}->{formal-parameters}-> : ->{id:type}- 

formal-parameters : 

■> ( - 1 ->{formal}- 1 -> ) 


1-> var -1-1— 

1 -> const —> J L <- 

i-> : — 


{id}- 

, <- 


•> : 


-> {i d J type}- 




■{id}- 

■ , <- 


-> {i d s type}- 


-> {procedure-headi ng}- 
•>function-heading}— 


->- 

->- 



There are two categories of routines: 
procedures and functions. Procedures 
should be thought of as adding new 
statements to the language. These new 
statements effectively increase the 
language to a superset language con¬ 
taining statements tailored to your 
specialized needs. Functions should 
also be thought of as increasing the 
flexibility of the language: functions 
add to your ability to express data 
transformation in expressions. 

Routines can return data to the caller 
by altering the var parameters or by 
assigning to variables that are common 
to both the invoker and the invoked 
routine. In addition, functions also 


return a value to the invoker upon 
return from the function. 


6.1 ROUTINE DECLARATION 


Routines must be declared prior to 
their use. The routine declaration 
consists of the routine heading, decla¬ 
rations and one compound statement. 

The heading defines the name of the 
routine and binds the formal parameters 
to the routine. The heading of a func¬ 
tion declaration also binds the func¬ 
tion name to the type of value returned 
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by the function. Formal parameters 
specify data that is to be passed to 
the routine when it is invoked. The 
declarations are described in chapter 
4. The compound statement will be exe¬ 
cuted when the routine is invoked. 


6.2 ROUTINE PARAMETERS 


Formal parameters are bound to the rou¬ 
tine when the routine is defined. The 
formal parameters define what kind of 
data may be passed to the routine when 
it is invoked. These parameters also 
specify how the data will be passed. 

When the routine is invoked, a parame¬ 
ter list is built. At the point of 
invocation the parameters are called 
the actual parameters . 

Pascal/VS permits parameters to be 
passed in following ways : 


pass by value 

pass by read/write reference (var) 
pass by read only reference (const) 
formal routine parameter 


+6.2.3 PASS BY CONST PARAMETERS 


+ Parameters passed by const may not be 
+ altered by the called routine. Also you 
+ should not modify the actual parameter 
+ value while the call to the routine has 
+ not yet completed. If you attempt to 
+ alter the actual parameter while a it 

+ is being passed by const, the result is 
+ not defined. This method could be 
+ called pass by read only reference . The 
+ parameters appear to be constants from 
+ the called routine's point of view. Any 
+ expression, variable or constant may be 
+ passed by const (fields of a packed 
+ record and elements of a packed array 
+ may also be passed). The use of the 
+ "const" reserved word in a parameter 
+ indicates that the parameter is to be 
+ passed by this mechanism. With parame- 
+ ters which are structures (such as 
+ strings), passing by const is usually 
+ more efficient than passing by value. 


6.2.4 FORMAL ROUTINE PARAMETERS 


A procedure or function may be passed 
to a routine as a formal parameter. 
Within the called routine the formal 
parameter may be used as if it were a 
procedure or function. 


6.2.1 PASS BY VALUE PARAMETERS 


Pass by value parameters can be thought 
of as local variables that are initial¬ 
ized by the caller. The called routine 
may change the value of this kind of 
parameter but the change is never 
reflected back to the caller. Any 
expression, variable or constant (ex¬ 
cept of file type) may be passed with 
this mechanism. 


6.2.2 PASS BY VAR PARAMETERS 


This method is also called pass by ref¬ 
erence . Parameters that are passed by 
var reflect modifications to the param¬ 
eters back to the caller. Therefore you 
may use this parameter type as both an 
input and output parameter. The use of 
the var symbol in a parameter indicates 
that the parameter is to be passed by 
read/write reference. Only variables 
may be passed by thi s mechan i sm ; 
expressions and constants may not . 
Also, fields of a packed record or ele¬ 
ments of a packed array may not be 
passed as var parameters. 


6.3 ROUTINE COMPOSITION 


There are five kinds of routine decla- 
rations : 


internal 
+ - EXTERNAL 

+ - FORTRAN 

+ - ENTRY 

FORWARD 

The directive used to identify each 
kind of declaration is shown in upper 
case above. 

An internal routine may be invoked only 
from within the lexical scope that con¬ 
tains the routine definition. 

+ An EXTERNAL routine can be invoked from 
+ within the lexical scope that contains 
+ the declaration but the routine body is 
+ defined outside the module. The formal 
+ parameters defined in the EXTERNAL rou- 
+ tine declaration must match those in 
+ the module where the routine is 
+ defined, but this is the programmer's 
+ responsibli ty. An EXTERNAL routine may 
+ refer to a Pascal/VS routine which is 
+ declared in another module or it may 
+ refer to code produced by other means 
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+ (such as assembler code). 

+ A FORTRAN routine is similiar to an 
+ EXTERNAL routine in that it specifies a 
+ routine that is defined outside the 
+ module being compiled. In addition/ it 
+ specifies that the routine is a FORTRAN 
+ subprogram and that the conventions of 
+ FORTRAN are to be used. If you pass a 
+ literal constant to a FORTRAN subpro- 
+ gram by CONST/ then you must assure 
+ that the FORTRAN subprogram does not 
+ alter the contents of parameter. In 
+ order to meet the requirements of 
+ FORTRAN you must obey the following 
+ restrictions: 

+ - All parameters may be only var or 

+ const parameters. 

+ - If the routine is a function/ it 

+ may only return a scalar result 

+ (including a REAL). 

+ - Routines may not be passed. 

+ - Multi-dimensional arrays are not 

+ remapped to conform to FORTRAN 

+ indexing/ that i S/ an element of an 

+ array ACn/ml in Pascal will be ele- 

+ ment A(m/n) in FORTRAN. 

+ An ENTRY routine declaration defines a 
+ routine that can be invoked from anoth- 
+ er module. An ENTRY routine can be 
+ invoked from within the module in which 
+ it is declared and from any module that 
+ declares it as EXTERNAL. 

+ ENTRY routines can only be declared at 
+ the outermost nesting level. That i S/ 
+ they must be declared directly within 
+ the program module or directly within a 
+ segment module; they can never be 
+ declared within another routine. 

A routine declared FORWARD is the means 
by which you can declare the routine 
heading before declaring the declara¬ 
tions and compound statement. The rou¬ 
tine heading is declared followed by 
the symbol 'FORWARD 1 '. This allows you 
to have a call to a routine prior to 
defining the routine's body. If two 
routines are to be mutually recursive 
and are at the same nesting level/ one 
of the routines must be declared FOR¬ 
WARD. 

To declare the body of the FORWARD rou¬ 
tine/ you declare the routine leaving 
off the formal parameter definition. A 
routine declared as an ENTRY routine 
may also be FORWARDed. 

Notes* 

1. Pascal/VS allows routines to be 
textually nested to a depth not 
greater than eight. 

2. A routine must be declared before 
it can be referenced. This allows 
the compiler to assure the validi¬ 
ty of a call by checking parameter 


compatiblity. 


stat i c 
C: CHAR; 

function GETCHAR:CHAR; 

EXTERNAL; 

procedure EXPR(var VAL: INTEGER); 
ENTRY; FORWARD; 

procedure FACT0R(var VAL*- INTEGER); 
ENTRY; 
begi n 

C := GETCHAR; 
if C = '(' then 
begi n 

C := GETCHAR; 

EXPR(VAL) 
end 
el se 


end; 

procedure EXPR (*var VAL: INTEGER*); 
begi n 

FACTOR(VAL); 


end; 

Examples of Routine Declarations 


function CHARFOUND 
(const S: STRING; 

C: CHAR): BOOLEAN; 
var I: 1..255; 
begi n 

for I := 1 to LENGTH(S) do 
if SCI] = C then 
begi n 

CHARFOUND := TRUE; 
return 
end; 

CHARFOUND := FALSE; 
end; 

Example of Const Parameter 


6.4 FUNCTION RESULTS 


A value is returned from a function by 
assigning the value to the name of the 
function prior to leaving the function. 
This value is inserted within the 
expression at the point of the call. 
The value must be assignment 
conformable to the type of the func¬ 
tion. 


Routines 
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If the function name is used on the 
right side of an assignment , it will be 
interpreted as a recursive call. 


S \ 

U - 

function FACTORIAL 

(X: INTEGER): INTEGER; 

begi n 

if X < = 1 then 
FACTORIAL := 1 
else 

FACTORIAL := X * FACTORIALCX-1) 

end; 

Example of Recursive Function 


6.5 PREDEFINED PROCEDURES AND 
TIONS 


Pascal/VS predefines a number of proce¬ 
dures and functions that you may find 
valuable. Details of the predefined 
procedures and functions are given in 
section 10.0 beginning at page 93. 
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7.0 VARIABLES 



Syntax s 


variable * 


-> {i d>- >t 


K 


.> [ -.-XexprJ 

L<- , — 

> . ->{id =field} 

> -> - 


> ] -H 


>i 


>-» 


notes*' 

array reference 

field reference 
pointer reference 
-> 



Pascal/VS divides variables into five 
classes depending on how they are 
declared : 

automatic Cvar variables) 

dynamic (pointei—qualified vari¬ 
ables) 

+ - static (static variables) 

+ - external (def/ref variables) 

parameter (declared on a routine 
declaration) 

A variable may be referenced in several 
ways depending on the variable’s type. 
You may always refer to the entire var¬ 
iable by specifying its name. You may 
refer to a component of a structured 
variable by using the syntax shown in 
the syntax diagram. 

If you simply specify the name of the 
variable, then you are referring to the 
entire variable. If that variable is 
declared as an array, then you are 
referring to the entire array. You may 
assign an entire array. Similarly, you 
may deal with record and set variables 
as units. 



var 

LINE1, 

LINE2 : packed 

array! 1..80 3 of 
CHAR; 


(* assign all 80 characters *) 
(X of the array X) 
LINE1 '*= LINE2; 

Using Variables in their entirety 


7.1 ARRAY REFERENCING 


An element of an array is selected by 
placing an indexing expression 
enclosed within square brackets, after 
the name of the array. The indexing 
expression must be of the same type as 
declared on the corresponding array 
index definition. 

A multi-dimensional array may be refei— 
enced as an array of arrays. For exam¬ 
ple, let variable A be declared as 
follows* 

A: array Ca..b,c..d3 of T 

As explained in section 5.6, this dec¬ 
laration is exactly equivalent to: 

A: array Ca..b3 of 

array Cc..d3 of T 


Variables 
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A reference of the form ACI] Mould be a 
variable of type; 


array Cc..d3 of T 


and would represent a single row in 
array A. A reference of the form 
ACI1CJ] would be a variable of type T 
and would represent the Jth element of 
the Ith row of array A. This latter 
reference would customarily be abbre¬ 
viated as 


ACI,J] 


Any array reference with two or more 
subscript indicies can be abbreviated 
by writing the subscripts in a comma 
separated list. That is, ACIHJ]... 
could be written as AEI,J,...l. 


If the ’/{CHECK SUBSCRIPT’ option is 
enabled, the index expression will be 
checked at execution time to make sure 
its value does not lie outside of the 
subscript range of the array. An exe¬ 
cution time error diagnostic will occur 
if the value lies outside of the pre¬ 
scribed range. (For a description of 
the CHECK feature see section 12.2 on 
page 134 ) 


var 

PERSON; 

record 

FIRST_NAME, 

LAST_NAME; STRINGC15); 
end; 

DATE; 

record 

DAY; 1..315 
MONTH; 1..12; 

YEAR: 1900..2000 
end; 

DECK: 

arrayCl..52] of 
record 

CARD: 1..13; 

SUIT: 

(SPADE, HEART, 
DIAMOND, CLUB) 

end; 


PERSON.LAST_NAME := ’SMITH’; 
DATE.YEAR := 1978; 

DECKC I ].CARD := 2; 

DECKC I ].SUIT := S; 


Field Referencing Examples 


AC123 

ACI] 

AC I+J ] 

DECKC CARD-FIFTY ] 

MATRIXC ROWCI], COLUMNCJ] ] 

Subscripted Variables 


7.2 FIELD REFERENCING 


A field of a record is selected by fol¬ 
lowing the record variable by a period 
and by the name of the field to be ref¬ 
erenced. 


7.3 POINTER REFERENCING 


A dynamic variable is created by the 
predefined procedure NEW or by an 
implementation provided routine which 
assigns an address to a pointer vari¬ 
able. You may refer either to the 
pointer or to the dynamic variable; 

referencing the dynamic variable 
requires using the pointer notation. 

For example 

var P : -> R; 

P refers to the pointer 

P-> refers to the dynamic variable 


If the ’%CHECK POINTER’ option is ena¬ 
bled, any attempt to reference a point¬ 
er that has not been assigned the 
address of an allocated variable will 
result in an execution time error diag¬ 
nostic. (For a description of the CHECK 
feature see section 12.2 on page 134 ) 


o 
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type 

INFO = record 

AGE: 1..99; 

WEIGHT: 1..400; 
end; 

FAMILY = 
record 
FATHER, 

MOTHER, 

SELF: ->INFO; 

KIDS: 0..10 
end; 


var 

FAMILY_POINTER : ->FAMILY 


NEWCFAMILY_POINTER); 

FAMILY_POINTER->.KIDS := 2; 

NEWCFAMILY_POINTER->.FATHER); 
FAMILY_POINTER->.FATHER->.AGE := 35; 


Pointer Referencing Examples 


7.4 FILE REFERENCING 


A component of a file is selected from 
the file buffer by a pointer notation. 
The file variable is assigned by using 
the predefined procedures GET and PUT. 


Each use of these procedures moves the 
current component to the output file 
(PUT) or assigns a new component from 
the input file (GET). (For a 
description of GET and PUT, see 
sections 10.6 and 10.7. ) 

If the *%CHECK POINTER f option is ena¬ 
bled, any attempt to reference a file 
pointer which has no value will result 
in an execution time error diagnostic. 
(For a description of the CHECK feature 
see section 12.2 on page 134 ) 


var 

INPUT : TEXT; 

OUTPUT : TEXT; 

LINE1 : array Cl..80] of CHAR; 


(H scan off blanks *) 
(* from a file of CHAR K) 
GET(INPUT); 

while INPUT-> = f f do 
GET(INPUT); 


(X transfer a line to the X) 

(M OUTPUT file *) 

for I := 1 to 80 do 
begi n 

0UTPUT-> := LINE1CI]; 

PUT(OUTPUT) 
end; 

File Referencing Examples 


Variables 
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Pascal/VS expressions are similar in 
function and form to expressions found 
in other high level programming lan¬ 
guages. Expressions permit you to com¬ 
bine data according to specific 
computational rules. The type of compu¬ 
tation to be performed is directed by 
operators which are grouped into four 
classes according to precedence 2 


- the not operator (highest) 

- the multiplying operators 

- the adding operators 

- the relational operators (lowest) 


An expression is evaluated by perform¬ 
ing the operators of highest precedence 
first* operators of the next precedence 


Expressions 















second and so forth. Operators of equal 
precedence are performed in a left to 
right order. If an operator has an 
operand which is a parenthesised sub- 
y expression, the sub-expression is 
evaluated prior to applying the opera¬ 
tor. 

The operands of an expression may be 
evaluated in either order; that is, you 
should not expect the left operand of 
dyadic operator to be evaluated before 
the right operand. If either operand 


changes a global variable through a 
function call, and if the other operand 
uses that value, then the value used is 
not specified to be the updated value. 
The only exception is in boolean 
expressions involving the logical 
operations of 'and* (&) and 'or' (|); 
for these operations the right operand 
will not be evalauted if the result can 
be determined from the left operand. 
See section 8.3 on page 67. 
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Examples of Expressions 


Assume the following declarations: 

const 

ACME 

= 'acme'; 


type 

COLOR 

SHADE 

DAYS 

MONTHS 

= (RED, YELLOW* BLUE); 

= set of COLOR; 

= (SUN, MON, TUES, WED, THUR, FRI, SAT); 

= (JAN, FEB, MAR, APR, MAY, JUN, 

JUL, AUG, SEP, OCT, NOV, DEC); 

var 

A COLOR 
A SET 
BOOL 

r 

: COLOR; 

: SHADE; 

: BOOLEAN; 


X , 

J 

: INTEGER; 


factors: 



I 

15 

CIH8+J) 

C RED 3 

C 3 

ODDCIXJ) 
not BOOL 
COLORC 1 
ACME 

) 

variable 

unsigned constant 
parenthetical expression 
set of one element 
empty set 
function call 
complement expression 
scalar type converter 
constant reference 

terms: 



I 

I X J 

I d i v J 

ACME || 1 TRUCKING' 

A SET * C RED 3 

I & 'FFOO'X 

BOOL & ODDCI) 

factor 

multi piication 
integer division 
catenation 
set intersection 
logical and on integers 
boolean and 


simple expression** 


I * J term 

I + J addition 

I I f 80000000 , X logical or on integers 

A_SET + [ BLUE ] set union 

- I unary minus on an integer 
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8.1 OPERATORS 



Multiplying Operators 

operator 

operation 

operands 

result 

K 

multi piication 

INTEGER 

INTEGER 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

/ 

real division 

INTEGER 

REAL 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

di v 

integer division 

INTEGER 

INTEGER 

mod 

modulo 

INTEGER 

INTEGER 

& (and) 

boolean and 

BOOLEAN 

BOOLEAN 

& (and) 

logical and 

INTEGER 

INTEGER 

K 

set intersection 

set of t 

set of t 

II 

string catenation 

STRING 

STRING 

<< 

logical left shift 

INTEGER 

INTEGER 

>> 

logical right shift 

INTEGER 

INTEGER 



Adding 

Operators 


operator 

operation 

operands 

result 

+ 

addition 

INTEGER 

INTEGER 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

- 

subtraction 

INTEGER 

INTEGER 



REAL 

REAL 



one REAL, one INTEGER 

REAL 

- 

set difference 

set of t 

set of t 

| (or) 

boolean or 

BOOLEAN 

BOOLEAN 

| (or) 

logical or 

INTEGER 

INTEGER 

+ 

set union 

set of t 

set of t 

&& (xor) 

exclusive or 

BOOLEAN 

BOOLEAN 

&& (xor) 

exclusive or 

INTEGER 

INTEGER 

&& (xor) 

'exclusive* union 

set of t 

set of t 
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The Not Operator 


operator 

operation 

operand 

result 

-* (not) 

boolean not 

BOOLEAN 

BOOLEAN 

- (not) 

logical one's 
complement 

INTEGER 

INTEGER 

(not) 

set complement 

set 

set 



Relational Operators 


operator 

operation 

operands 

result 

= 

compare equal 

any set# scalar type# 
pointer or string 

BOOLEAN 

ii 

r 

A 

V 

compare not equal 

any set# scalar type# 
pointer or string 

BOOLEAN 

< 

compare less than 

scalar type or string 

BOOLEAN 

< = 

compare < or = 

scalar type# string 

BOOLEAN 

< = 

subset 

set of t 

BOOLEAN 

> 

compare greater 

scalar type# string 

BOOLEAN 

> = 

compare > or = 

scalar type# string 

BOOLEAN 

> = 

superset 

set of t 

BOOLEAN 

i n 

set membership 

t and set of t 

BOOLEAN 
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+ 8.2 CONSTANT EXPRESSIONS 


+ 


/'~ v + Constant expressions are expressions + 
which can be evaluated by the compiler + 
+ and replaced with a result at compile + 
+ time. By its nature, a constant expres- 
+ sion may not contain a reference to a + 
+ variable or to a usei—defined function. + 
+ Constant expressions may appear in con- + 
+ stant declarations. + 

+ 

+ The following predefined functions are + 
+ permitted in constant expressions: + 


constant 
expression 


ORDC' A') 

SUCCCCHRC * FO'X)) 

256 div 2 

'TOKEN*|ISTRCCHRCO)) 
*8000'X I *0001*X 
[»0*. . *9*3 
32768*2-1 


+ 

Function 

Section 

Paqe 

+ 

- ABS 

11.5.6 

119 

+ 

- CHR 

11.4.2 

113 

+ 

- HIGHEST 

11.3.4 

112 

+ 

- LENGTH 

11.6.1 

124 

+ 

- LOWEST 

11.3.3 

111 

+ 

- MAX 

11.5.2 

117 

+ 

- MIN 

11.5.1 

117 

+ 

- ORD 

11.4.1 

113 

+ 

- PRED 

11.5.3 

118 

+ 

- scalar conversion 



+ 

functions 

11.4.3 

114 

+ 

- SIZEOF 

11.3.5 

112 

+ 

- SUCC 

11.5.4 

118 


+ Examples of Constant 
+ _ 




type 


INTEGER 

CHAR 

INTEGER 

STRING 

INTEGER 

set of CHAR 

INTEGER 

Expressions 
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8.3 BOOLEAN EXPRESSIONS 


You should recognize that Pascal 
assigns the operations of (and) and 
" j" a higher precedence than the rela¬ 
tional operators. This means that the 
expression• 

A<B & C<D 

Mill be evaluated as '• 

(A < (B&C)) < D 


Thus, it is advisable to use parenthe¬ 
sis Mhen Mriting expressions of this 
sort. 

Pascal/VS Mill optimize the evaluation 
of BOOLEAN expressions involving 
(and) and f |' (or) such that the right 
operand of the expression Mill not be 
evaluated if the result of the opei— 
ation can be determined by evaluating 
the left operand. For example, given 
that A, B, and C are boolean expres¬ 
sions and X is a boolean variable, the 
evaluation of 

X A or B or C 

Mould be performed as 

i f A then 
X := TRUE 
else 

i f B then 
X := TRUE 
else 
X := C 

The evaluation of 

X : = A and B and C 

Mould be performed as 

i f -A then 
X := FALSE 
else 

if -’B then 
X := FALSE 
else 
X : = C 


The evaluation of the expression Mill 
alMays be left to right. 

The folloMing example demonstrates 
logic Mhich depends on the conditional 
evaluation of the right operand of the 
"and" operator. 


type 

RECPTR = ->REC; 

REC = record 

NAME: ALPHA; 

NEXT: RECPTR; 
end; 

var 

P : RECPTR; 

LNAME : ALPHA; 

begi n 

Mhi le (P<>nil) and 

(P->.NAME <> LNAME) 
do 

P := P->.NEXT; 

end; 

Example of a BOOLEAN Expression 
that Depends on Order of Evaluation 


Notes: 

• If you use a function in the right 
operand of a boolean expression, 
then you must be aMare that the 
function may not be evaluated. 
Further, you should note that rely¬ 
ing on side-effects from functions 
is considered a bad programming 
practice. 

• Not all Pascal compilers support 
this interpretation of BOOLEAN 
expressions. If you Mish to assure 
portability betMeen Pascal/VS and 
other Pascal implementations you 
should Mrite the compound tests in 
a form that uses nested if- 
statements. 
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+ 8.4 LOGICAL EXPRESSIONS 

+ 


Many of the integer operators provided + 

in Pascal/VS perform logical opei— + 

+ ations on their operands; that is, the + 

+ operands are treated as unsigned + 

+ strings of binary digits instead of 
+ signed arithmetic quantities. For + 

+ example, if the integer value of -1 was + 

+ used as an operand of a logical opei— + 

+ ation, it would be viewed as a string + 

+ of binary digits with a hexadecimal 
+ value of *FFFFFFFF'X. + 

+ 

+ The logical operations are defined to + 

+ apply to 32 bit values. Such an opei— + 

+ ation on a subrange of an INTEGER could + 

+ yield a result outside the subrange. + 

+ 

+ The following operators perform log- + 
+ ical operations on integer operands 5 + 


+ 

+ - (and) performs a bit-wise and + 

+ of two integers. 

+ 

+ - '|' (or) performs a bit-wise inclu- 

+ sive or, + 

+ - (xor) performs a bit-wise 

+ exclusive or. 


+ - (not) performs a one's comple¬ 
ment of an integer. 

'<<* shifts the left operand value 
left by the amount indicated in the 
right operand. Zeroes are shifted 
in from the right. 

'>>* shifts the left operand value 
right by the amount indicated in 
the right operand. Zeroes are 
shifted in from the left. 


257 * 

'FF'X 

yi 

elds 

2 1 4 

1 8 

yi 

elds 

4 « 2 

yi 

elds 

-4 « 

1 

yi 

elds 

8 » 1 


yi 

elds 

-8 >> 

1 

yi 

elds 

f FFFF’ 

X >> 3 yi 

elds 

-1 a 1 

FF'X 

yi 

elds 

-0 


yi 

elds 

'FF'X 

&& 8 

yi 

elds 


1 

14 

16 

-8 

4 

' 7FFFFFFCX 
' IFFF'X 
f FE'X 
-1 

' F7 'X 


Examples of Logical Operations 
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8.5 FUNCTION CALL 



Syntax* 

function-call * 

-> £i d*functi on}-> {actual-parameters}-> 

actua1-pa rameter 5 * 


-> ( — 

t- 1 -> Cexpr} 

l L< 

rj 

—> ) 






V 



A function returns a value to the 
invoker. A call to a function passes 
the actual parameters to the corre¬ 
sponding formal parameters. Each actu¬ 
al parameter must be of a type that is 
conformable to the corresponding 
formal parameter. You may not pass a 
field of a packed record as a var 
parameter. You also may not pass an 
element of a packed array as a var 
parameter. 

The parenthesis list may be dropped if 
the functions require no parameters. 
Also, you may use an empty set of 
parenthesis to show this. 


var A,B,C* INTEGER; 

function SUM 

(A,B* INTEGER): INTEGER; 
begi n 

SUM := A+B 
end; 

begi n 

C*:= SUMCA.B) X 2 
end; 


Function Example 
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+8.6 SCALAR CONVERSIONS 


'f Pascal/VS predefines the function ORD 
that converts any scalar value into an 
+ integer. The scalar conversion func- 
+ tions convert an integer into a speci- 
+ fied scalar type. An integer expression 
+ is converted to another scalar type by 
+ enclosing the expression within paren- 
+ theses and prefixing it with the type 
+ identifier of the scalar type. If the 
+ operand is not in the range 0 
+ ORDCHIGHESKscalar type)), then a sub- 
+ range error will result. The conversion 
+ is performed in such a way as to be the 
+ inverse of the ORD function. See 
+ section 11.4.3 on page 114. 

+ The definition of any type identifier 
+ that specifies a scalar type (enumei— 
+ ated scalars or subranges) forms a 


+ scalar conversion function. By def 
+ nition, the expression CHAR(x) is 
+ equivalent to CHRCx); INTEGER(x) is 
+ equivalent to x; and ORD(typeCx)) is 
+ equivalent to x. 

+ _ 

+ type 
+ WEEK = 

+ (SUN,MON,TUE,WED,THU»FRI,SAT); 

+ var 

+ DAY: WEEK; 

+ 

+ . 

+ (*The following assigns SAT to DAY*) 

+ DAY := WEEKC6); 

+ Scalar Conversion Functions 

+ __ 
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8.1 SET FACTORS 



Syntax: 


set-factor: 


-1-> lexpr}- 

c^r.r- 

—>(expr}— 

=3 



, <■ 


>J 


A set factor is used to compute a value 
of a set type within an expression. 

The set factor is list of comma sepa¬ 
rated expressions within square brack¬ 
ets. Each expression must be of the 
same type; this type becomes the base 
scalar type of the set. If the set 
specifies INTEGER valued expressions, 
then there is an implementation 
restriction of 256 elements permitted 
in the set. 


type 

DAYS = set of 

(SUN,MON,TUES,WED,THU,FRI,SAT); 
CHARSET= set of CHAR; 



var 

WORKDAYS, 

WEEKEND: DAYS 

NONLETTERS: CHARSET; 


WORKDAYS := CM0N..FRI3; 
WEEKEND := - WORKDAYS; 


NONLETTERS := 

- C'a 1 .. 'z*, 'A'.. 'Z' 3 ; 


Set Factor 
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9.0 STATEMENTS 

o 


Syntax '• 

statement » 

- —> {label}-> ->-| 

->{assert-statement}- 

->{assignment-statement} 

->(case-statement}- 

->{compound-statement}— 

->{contlnue-statement}— 

->{empty-statement}- 

->{foi—statement}- 

->{goto-statement}- 

->{if-statement}- 

->{leave-statement}- 

->{procedure-call}- 

->{repeat-statement!- 

->{return-statement}- 

->{while-statement}- 

->{with-statement}- 


Statements are your directions to pei— those found in most high level program 

form specific operations based on the ming languages, 

data. The statements are similar to 


Statements 










+9.1 THE ASSERT STATEMENT 



+ 


Syntax ’ 


assert-statement ’• 


-—> assert->{exprl- ——- 



+ The assert statement is used to check + _ 

+ for a specific condition and signal a 
+ runtime error if the condition is not + Example: 

+ met. The condition is specified by the 

+ expression which must evaluate to a + assert A >= B 
+ BOOLEAN value. If the condition is not 

+ TRUE then the error is raised. The com- + The Assert Statement 

+ piler may remove the statement from the 

+ program if it can be determined that + _ 

+ the assertion is always true. 


o 


o 
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9.2 THE ASSIGNMENT STATEMENT 



Syntax ' 


assignment-statement » 

- 1 -> (variable)- 1 -> ♦ = ->(expr}-> 

'-> (i d : funct i on)->-* 



The assignment statement is used to 
assign a value to a variable. This 
statement is composed of a reference to 
a variable followed by the assignment 
symbol ('•' = ')> followed by an expres¬ 
sion which when evaluated is the new 
value. The variable must be conformable 
to the expression. The rules for 
expression conformabi1ity are given in 
section 5.2 on page 27. 

You may make array assignments (assign 
one array to another array) or record 
assignments (assign one record to 
another). When doing this, the entire 
array or record is assigned. 

A result is returned from a function by 
assigning the result to the function 
name prior to leaving the function. 
(See section 6.4 on page 55 ). 

Pascal/VS will not permit the assign¬ 
ment of a value to a pass by const 
parameter. 


Example ' 


type 

CARD = record 

SUIT : (SPADE, 
HEART, 
DIAMOND# 
CLUB); 

RANK : 1..13 
end; 


var 

X, Y/ Z : REAL; 

LETTERS, 

DIGITS, 

LETTER_OR_DIGIT 
• set of CHAR; 


I, J, K : INTEGER; 


DECK : arrayC 1..52 
CARD; 

X*;= Y*Z; 

LETTERS := 

DIGITS := 

LETTER_OR_DIGIT = = 

DECKC I I.SUIT := 

DECKC J ] := 


] of 


E 1 A * .. f Z* 3; 

C 'O' .. '9* 3; 
LETTERS + DIGITS; 
HEART; 

DECKC K 3; 


Assignment Statements 



Statements 


75 





9.3 THE CASE STATEMENT 


Syntax • 


case-statement ♦ 

-> case ->{expr}-> of 

r<- 


3 


1-> {range}-1-> : -> 

L<- , <-1 ^ 


{statement}- 


*>i 


K- 




-> otherwise-j-->{statement}-j->j 


■> end 


The case statement provides you with a 
multiple branch based upon the evalu¬ 
ation of an expression. This statement 
consists of an expression called the 
selector and a list of statements. The 
selector must be of scalar type (except 
type REAL). Each statement is prefixed 
with one or more ranges of the same 
type as the selector; each range is 
separated by a comma. Each range desig¬ 
nates one or more values called case 
labels . 

Pascal/VS evaluates the expression and 
executes the statement whose case label 
equals the value of the expression. If 
no case label equals the value of the 
expression/ then the otherwise state- 
+ ment is executed if it is present; if 
+ there is no otherwise statement and the 
+ %CHECK CASE option is on/ then a 
+ runtime error will result. If the 
+ checking is not enabled the results 
+ will not be predictable. 

The range values of a case statement 
may be written in any order. However/ 
you may not designate the same case 
label on more than one statement. 


Example** 

type 

SHAPE = (TRIANGLE/ RECTANGLE/ 
SQUARE/ CIRCLE); 
COORDINATES = 
record 

X/Y : REAL; 

AREA : REAL; 

case S : SHAPE of 
TRIANGLE: 

(SIDE : REAL; 

BASE : REAL); 
RECTANGLE: 

(SIDEA/SIDEB : REAL); 
SQUARE: 

(EDGE : REAL); 
rTPri F: 

(RADIUS : REAL) 

end; 

var 

COORD : COORDINATES; 

with COORD do 
case S of 
TRIANGLE: 

AREA := 0.5 * SIDE H BASE; 
RECTANGLE: 

AREA := SIDEA * SIDEB; 

SQUARE: 

AREA := SQR(EDGE); 

CirclE 5 

AREA := 3.14159 X SQR(RADIUS) 
end; 



The Case Statement 
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Example* 

^ 1 type 

RANK = (ACE, TWO, THREE,FOUR, 
FIVE, SIX, SEVEN,EIGHT, 
NINE, TEN, JACK, QUEEN, 
KING); 

SUIT = (SPADE,HEART,DIAMOND,CLUB); 
CARD = record 

R s RANK; 

S : SUIT 

end; 

var 

POINTS * INTEGER; 

A_CARD * CARD; 

case A_CARD.R of 
ACE* 

POINTS *= 11; 

TWO..TEN* 

POINTS := ORD(A_CARD.R)+l 
+ otherwise 
+ POINTS := 10 

end; 

The Case Statement with otherwise 



o 
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THE COMPOUND STATEMENT 



Syntax: 


compound-statement • 

-> begin -i-> (statement}- 1 -> end -> 

L<- ; <-1 


The compound statement serves to brack¬ 
et a series of statements that are to 
be executed sequentially. The reserved 
words "begin" and "end" delimit the 
statement. Semicolons are used to sepa¬ 
rate each statement in the list of 
statements. 


Example: 
if A > B then 

begin (* swap A and B 

TEMP := A; 

A := B; 

B := TEMP 
end 


*) 


Compound Statement 



o 
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+ 9.5 THE CONTINUE STATEMENT 


+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


Syntax *• 

conti nue-statement ’• 

-> continue-> 


The continue statement permits the con¬ 
tinuation of an iterative statement 
(i.e. for, while and repeat). This 
statement is effectively a goto to the 
end of the innermost iterative state¬ 
ment. The termination condition is 
tested and the loop will terminate or 
will iterate depending on the result of 
the test. 


Example ' 
repeat 

if A > B then continue; 

(# execution resumes here *) 
unti1 P = ni1 

The Continue Statement 
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9.6 THE EMPTY STATEMENT 



Syntax '• 


emptv-statement ’• 

- > 


The empty statement is used as a place 
holder and has no effect on the exe¬ 
cution of the program. This statement 
is often useful when you wish to place 
a label in the program but do not want 
it attached to another statement (such 
as» at the end of a compound 
statement). The empty statement is also 
useful to avoid the ambiguity that 
arises in nested if statements. You may 
force a single else-clause to be paired 


with the outer nested if statement (see 
page 84 ) by using an empty statement. 

if bl then 
if bZ then 
si 
el se 

(* empty-statement *) 

el se 
s2 



o 
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9.7 THE FOR STATEMENT 


Syntax: 


for-statement : 

-> for ->{id)• 


-> : = 


•> {expr}- 


-> to - 

■> downto 




’> (expr)->n 


c 


■> do ->{statement}- 


The for statement repeatedly executes a 
statement while the control variable is 
assigned a series of values. The value 
of the control variable is incremented 
(to) or decremented (downto) for each 
iteration of the loop. The increment 
(decrement) is computed by the SUCC 
(PRED) function. That is, the control 
variable is changed to the suceeding 
(preceeding) value of the type of the 
control variable. 

The for statement initializes the con¬ 
trol variable to the first expression. 
Prior to each execution of the compo¬ 
nent statement, the control variable is 
compared less than or equal to (to), or 
greater than or equal to (downto) the 
second expression. Pascal/VS computes 
the value of the second expression at 
the beginning of the for statement and 
uses the result for the duration of the 
statement. Thus the ending value 
expression is computed once and can not 
be changed during the for statement. 

The control variable must be an auto¬ 
matic variable which is declared in the 
immediately enclosing routine. Also, 
it may not be subscripted, field quali¬ 
fied or referenced through a pointer. 
The type of the control variable must 
be a scalar type. 

The executed statement must not alter 
the control variable. If the control 
variable is altered within the loop, 
the resultant loop execution is not 
predictable. The value of the control 
variable after the for statement is 
undefined (you should not expect the 
control variable to contain any partic¬ 
ular value). 

Given the following statement 

for I •• = exprl to expr2 do stmt 

where I i s an automatic scalar vari¬ 
able; exprland expr2 are scalar expres¬ 


sions which are type-compatible with I; 
and f stmt’ is any arbitrary statement. 
The following compound statement is 
functionally equivalent: 

begi n 

TEMPI s = exprl; 

TEMP2 := expr2; 
if TEMPI <= TEMP2 then 
begi n 

I : = TEMPI; 
repeat 
stmt; 

if I = TEMP2 then 
leave; 

I := SUCC(I) 

until FALSE; (Xforever*) 
end 

end 

And given the following statement 

for I := exprl downto expr2 do stmt 

where I is an automatic scalar vari¬ 
able; exprl and expr2 are scalar 
expressions which are type-compatible 
with I; and 'stmt' is any arbitrary 
statement. The following compound 
statement is functionally equivalent: 

begi n 

TEMPI := exprl; 

TEMP2 := expr2; 
if TEMPI >= TEMP2 then 
begi n 

I := TEMPI; 
repeat 
stmt; 

if I = TEMP2 then 
leave; 

I := PRED(I) 

until FALSE; (Xforever*) 
end 

end 

where 'TEMPI* and *TEMP2* are compiler 
generated temporary variables. 
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Examples• 

(H find the maximum INTEGER in *) 

(K an array of INTEGERS *) 

MAX := AC13; 

LARGEST := 1; 

for I := 2 to SIZE_0F_A do 
if A C13 < MAX then 
begi n 

LARGEST := I; 

MAX := AC 13 
end 


(X matrix multiplication: C<-A*B *) 

for I := 1 to N do 
for J ’- 1 to N do 
begi n 

X := 0.0; 

for K := 1 to N do 

X := AC I,K3 * BCK,J3 + X; 
CCI,J] := X 
end 


(X sum the hours worked this week x) 
SUM := 0; 

for DAY — MON to FRI do 

SUM := SUM + TIMECARDC DAY 3 

The For Statement 


o 
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9.8 THE GOTO STATEMENT 



Syntax: 

qoto-statement: 



s goto 

. y ildoei J ■ ~ .. 



The goto statement changes the flow of 
control within the program. 


Examples: 

goto 10 

goto ERROR_EXIT 
The Goto Statement 


• You may not branch into a with 
statement from a goto statement 
outside of the with statement. 

• A goto statement that specifies a 
label in a surrounding routine is 
not permitted. This is a restric¬ 
tion in Pascal/VS which is not in 
standard Pascal. 

The following example illustrates 
legal and illegal goto statements. 



The label must be declared within the 
routine that contains the goto state¬ 
ment . 

The following restrictions apply to the 
use of the goto statement: 

• You may not branch into a compound 
statement from a goto statement 
which is not contained within the 
statement. 

• You may not branch into the then- 
clause or the else-clause from a 
goto statement that is outside the 
if statement. Further, you may not 
branch between the then-clause and 
the else-clause. 

• You may not branch into a case-al¬ 
ternative from outside the case 
statement or between case-alterna¬ 
tive statements in the same case 
statement. 

• You may not branch into a for, 
repeat, or while loop from a goto 
statement that is not contained 
within the loop. 


procedure G0T0_EXAMPLE; 
label 
LI, 

L2, 

JUMPIN, 

JUMPOUT; 


begi n 


goto JUMPIN; 

(x not permitted 

X) 

begi n 



JUMPIN: 



goto*JUMPOUT; 

(* permitted 

X) 

goto JUMPIN; 

(* permitted 

X) 


end; 

JUMPOUT: 


if expr then 

Ll : goto L2 not permitted *) 

else 

L2:goto LI (* not permitted *) 

Goto Target Restrictions 
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9.9 THE IF STATEMENT 


Syntax • 


if-statement • 


—> if —>{expr}—> 


then —>{statement} 



else —>{statement> 



> 


The if statement allows you to specify 
that one of two statements is to be 
executed depending on the evaluation of 
a boolean expression. The if statement 
is composed of an expression and a 
then-clause and an optional el se- 
clause . Each clause contains one state¬ 
ment . 

The expression must evaluate to a 
BOOLEAN value. If the result of the 
expression is TRUE, then the statement 
in the then-clause is executed. If the 
expression evaluates to FALSE and there 
is an else-clause, then the statement 
in the else-clause is executed; if 
there i s no else-clause, control passes 
to the next statement. 


Example: 

if A <= B then 
A := (A + l.0)/2.0 

if ODD(I) then 
J:=J+l 
else 

J:=J div 2 + 1 

The If Statement 


Nesting of an if statement within an if 
statement could be interpreted with two 
different meanings if only one state¬ 


ment had an else-clause. The following 
example illustrates the condition that 
produces the ambiguity. Pascal/VS 
always assumes the first interpreta¬ 
tion. That is, the else-clauses are 
paired with the innermost if statement. 

The following line could be 
interpreted two ways. 

if bl then if b2 then si else s2 

Interpretation 1 

(assumed by Pascal/VS) 

if bl then 
begi n 

if b2 then 
si 
else 
s2 

end 


Interpretation 2 

(incorrect interpretation) 

if bl then 
begi n 

if b2 then 
si 

end 

else 

s2 
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+9.10 THE LEAVE STATEMENT 



+ The leave statement permits the termi- 
+ nation of an iterative statement (i.e. 
+ for, while and repeat) without the tei— 
+ mination condition occurring. This 
+ statement is particularly useful in 
+ applications which search and in handl- 
+ ing error conditions. 


+ _ 

+ Example? 

+ P:=FIRST; 

+ while P<>ni1 do 

+ if P->.NAME = 'JOE SMITH’ then 

+ leave 

+ else 

+ P • =P~>.NEXT; 

+ P either points to the desired *) 

+ (# data or is ni1 x) 

+ The Leave Statement 

O +- 
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The procedure statement causes the 
invocation of a procedure. When a pro¬ 
cedure is invoked, the actual parame¬ 
ters are substituted for the 
corresponding formal parameters. The 
actual parameters must be conformable 
to the formal parameters. The rules for 
expression conformabi1ity are given in 
section 5.2 on page 27. 

Parameters which are passed by 
read/write reference (var) may only be 
variables, never expressions or con¬ 
stants. Also, fields of a packed record 
may not be passed by var. Parameters 
passed by value or read-only reference 
(const) may be any expression. 

A procedure invocation that requires no 
parameters does not use the list of 
operands. 


Example '• 

TRANSPOSECAN_ARRAY, 

NUM-0F_R0WS, 

NUM-0F_C0LUMNS); 

MATRIX_ADD(A_ARRAY, 

B_ARRAY, 

C_ARRAY, 

N,M); 

XYZCI+J, KHL) 

Procedure Invocations 
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9.12 THE REPEAT STATEMENT 


Syntax *• 


repeat-statement * 

-> repeat - 1 -> (statement)- 1 -> until ->(expr)-> 

L<- . <-1 


The statements contained between the 
statement delimiters repeat and until 
are executed until the control expres¬ 
sion evaluates to TRUE. The control 
expression must evaluate to type 
BOOLEAN. Because the termination test 
is at the end of the loop* the body of 
the loop is always executed at least 
once. The structure of the repeat 
statement allows it to act like a com¬ 
pound statement in that it encloses a 
list of statements. 


Example^ 

repeat 

K := I mod J; 

I := J; 

J := K 
until J = 0 

The Repeat Statement 
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+ The return statement permits an exit 
+ from a procedure or function. This 
+ statement is effectively a goto to an 
+ imaginary label after the last state- 
+ ment within the routine being executed. 
+ If the XCHECK FUNCTION option is ena- 


+ bled, Pascal/VS will insure that a 
+ function has been assigned a value pri- 
+ or to the return from the function. If 
+ a value has not been assigned, a 
+ runtime error will occur. 


o 
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9.14 THE WHILE STATEMENT 



Syntax : 


while-statement « 

-> while ->(expr)-> do ->(statement}-> 


The while statement allows you to spec¬ 
ify a statement that is to be executed 
while a control expression evaluates to 
TRUE. The control expression must eval¬ 
uate to type BOOLEAN. The expression is 
evaluated prior to each execution of 
the statement. 



Example : 

(X Compute the decimal size of N x) 


(x assume N >= 1 


X) 

I := 0; 
J := 1; 
while N 

> 10 do 



begi n 




I : 

= 1 + 1; 



J : 

= J x 10; 



N s 

= N div 10 



end 

(X I is 

the power of 

ten of the 

X) 

(X 

original N 


X) 

(* J is 

ten to the I 

power 

X) 

(X 1 < = 

N <= 9 


X) 


The kJhile Statement 
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9.15 THE WITH STATEMENT 


Syntax? 


uii th-statement ? 

-> with - 1 ->(variable}- 1 -> do ->{statement)-> 

L<- , <-1 


The with statement is used to simplify 
references to a record variable by 
eliminating an addressing description 
on every reference to a field. The with 
statement makes the fields of a record 
available as if the fields were vari¬ 
ables within the nested statement. 


in a with statement that specifies the 
record. 


Example? 


The with statement effectively com¬ 
putes the address of a record variable 
upon executing the statement. Any 
modification to a variable which 
changes the address computation will 
not be reflected in the pre-computed 
address during the execution of the 
with statement. The following example 
illustrates this point. 


var A ? arrayL 1. 

.10 

] of 

record 

FIELD 

end; 

: 

INTEGER 

I?=i; * 

with A[ I ] do 



begi n 

K ?= FIELD; 

(*K 

?=AC1].FIELD*) 

I ?= 2; 

K ?= FIELD; 
end; 

(*K 

? =A[1].FIELD*) 


The Address of A is Computed 
on Entry to the Statement 


The comma notation of a with statement 
is an abbreviation of nested with 
statements. The names within a with 
statement are scoped such that the last 
with statement will take precedence. A 
local variable with the same name as a 
field of a record becomes unavailable 


type 


EMPLOYEE = 
record 
NAME 
MAN_N0 
SALARY 
ID_N0 
end; 

var 

FATHER : -> 

with FATHER-> 
begin 

NAME : = 
MAN_N0 ?= 
SALARY ? = 
ID_N0 ? = 
end 


STRINGC20); 
0..999999; 
INTEGER; 

0..999999 


EMPLOYEE; 

do 

'SMITH' ; 
666666 ; 

WEEKLY_SALARY; 
MAN NO 


is equivalent to? 
begin 

FATHER->.NAME 
FATHER->.MAN_N0 
FATHER->.SALARY 
FATHER->.ID_N0 
end 


= T SMITH T ; 

= 666666 ; 

= WEEKLY_SALARY; 
=FATHER->.MAN NO 


Note? The variable FATHER is of type 
pointer to EMPLOYEE# thus the pointer 
notation must be used to specify the 
record pointed to by the pointer. 


The With Statement 
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Example 


V ; record 

V2 : INTEGER; 

VI • record A s REAL end; 
A : INTEGER 


end; 


A : CHAR; 







with V,V1 

do 






begi n 







V2 : 

= 1 ; 

C* 

V.V2 

; 3 

1 

X) 

A : 

= 1 . 0 ; 

(* 

V.VI.A 

: z 

1.0 

X) 

V. A : 

= 1 

(x 

V. A 

: z 

1 

X) 



(x 

CHAR A 

1 5 

not 

X) 



(x 

available 

here 

X) 

end; 

A := ’A'; 


(X 

CHAR A 

i s 

now 

X) 



cx 

available 


X) 


With Statements Can Hide a Variable 
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10.0 I/O FACILITIES 


Input and output are done using the 
file data structure. The Pascal/VS Pro¬ 
grammer's Guide provides more detail on 
how to use the I/O facilities in a spe¬ 
cific operating system. Pascal/VS pro¬ 
vides predefined routines which 
operate on variables of a file type. 
The routines are: 

• RESET 

• REWRITE 

• READ 

• WRITE 

• GET 

• PUT 

• EOF 

+ • INTERACTIVE 

+ • OPEN 

+ • CLOSE 

To facilitate input and output oper¬ 
ations that require conversion to and 
from a character representation, the 
predefined file type TEXT is provided. 
The type TEXT is predefined as a file 
of CHAR. Each GET and PUT transfers one 
CHAR of information. There are addi¬ 
tional predefined routines that may be 
executed on variables of type TEXT that 
perform the required conversions. 

• READLN 


10.1 RESET PROCEDURE 


Open a File for Input 


def i ni t i on '• 

procedure RESETC 

F : filetype); 


where : 

Fisa variable of a file type 


RESET positions the file pointer to the 
beginning of the file and prepares the 
file to be used for input. After you 
invoke RESET the file pointer is point¬ 
ing to the first data element of the 
file. If the file is associated with a 
terminal, the terminal user would be 
prompted for data when the RESET is 
executed. This procedure can be thought 
of as: 


Closing the file (if open). 

Rewinding the file. 

Opening the file for input. 

Getting the first component of the 
file. 


• WRITELN 

• EOLN 

• PAGE 
+ • COLS 
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10.2 REWRITE PROCEDURE 


+ 10.3 INTERACTIVE PROCEDURE 



Open a File for Output + Open a File for Interactive Input 


definitioni 

+ 

+ 

definition ' 

procedure REWRITE( 

+ 

procedure INTERACTIVEC 

F : filetype); 

+ 

F s filetype); 

where: 

+ 

where: 

F is a variable of a file type. 

+ 

Fisa variable of a file type. 


+ 



REWRITE positions the file pointer to 
the beginning of the file and prepares 
the file to be used for output. This 
procedure can be thought of as: 


Closing the file (if open). 
Reminding the file. 

Opening the file for output. 


+ INTERACTIVE positions the file pointer 
+ to the beginning of the file and pre- 
+ pares the file to be used for input. 
+ This procedure is similar to RESET 
+ except that when a file is opened the 
+ file is not positioned at the first 
+ data element. If the file is a TEXT 
+ file, then an explicit READ is required 
+ after a READLN in order to advance the 
+ file to the next line of data. 



o 
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+ 10.4 OPEN PROCEDURE 


+ 10.5 CLOSE PROCEDURE 



+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 


+ 


Open a File 


definition • 

procedure OPENC 

F • filetype; 
S : STRING ); 


where ' 

Fisa variable of a file type. 

S is an optional parameter that is 
used to supply implementation 
dependent information about the 
f i le. 


+ 

+ 

+ 


+ 

+ 


+ 


+ 


+ 

+ CLOSE closes a file; all processing to 
+ the file is completed. You must open 
+ the file prior to using it again. 


Close a File 

definition » 

procedure CL0SE( 

F '• filetype); 

where ♦ 

Fisa variable of a file type. 


+ OPEN opens the file for processing. The 
+ optional string parameter is expected 
+ to contain a file name or other system 
+ dependent information. You should 
+ refer to the Programmer’s Guide for a 
+ description of the available options. 



o 
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10.6 GET PROCEDURE 



Position a File to Next Element 


definition 5 


procedure GETC F ' 

filetype ); 

where s 


Fisa variable of 

a file type. 


GET positions the file pointer to the 
next component of the file. For exam¬ 
ple, if the file is defined as an array 
of 80 characters, then each GET returns 
the next 80 character record. A GET 
invocation on a file of type TEXT 
returns a single character. If the file 
associated with the variable is not 
opened for input, it will be opened 
implicitly. 


10.7 PUT PROCEDURE 


Position a File to Next Element 


definition ♦ 

procedure PUTC F : filetype ); 


where ? 

Fisa variable of a file type. 


PUT releases the current component of 
the file variable by effectively writ¬ 
ing the component to the associated 
physical file. For example, if the file 
is defined as an array of 80 charac¬ 
ters, then each PUT transfers an 80 
character record. A call to PUT with a 
file of type TEXT transfers a single 
character. The file associated with the 
variable must be open for output. 
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10.8 EOF FUNCTION 


Test File for End Of File 


definition : 

function E0F(F:filetype) ’ BOOLEAN; 
function E0F:B00LEAN; 


where : 

Fisa variable of a file type. 


EOF is a BOOLEAN valued function which 
returns TRUE if the end-of-file condi¬ 
tion is true for the file. This condi¬ 
tion occurs in an input file when an 
attempt is made to read past the last 
record element of the file. If the file 
is open for output, this function 
always returns TRUE. 


If the file variable F is omitted, then 
the function assumes the predefined 
file INPUT. 


Example: 

(* The following will read all of *) 
(* the records from File SYSIN *) 
(K and write then out to SYSOUT *) 

type FREC = 

record 

A, B:INTEGER 
end; 

var 
SYS IN 

SYSOUT: file of FREC; 
begin 

RESET(SYSIN); 

REWRITECSYSOUT); 
while not EOF(SYSIN) do 
begi n 

SYS0UT-> := SYSIN->; 
PUT(SYSOUT); 

GET(SYSIN) 
end; 

end; 


10.9 READ AND READLN (TEXT FILES) 


Read Data from TEXT File 


Definition : 

procedure READC 

f : TEXT; 
v : see below); 

procedure READLNC 

f : TEXT; 
v : see below); 

where : 

f i 5 an optional text file 

that is to be used for input. 

visa variable of one of the 

following types: 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- STRING 

- packed array of CHAR 


The READ procedure reads character data 
from the TEXT file f. READ converts 
character data to conform to the type 
of the operand. The file parameter is 
optional; the default file is INPUT. 

READLN positions the file at the begin¬ 
ning of the next line. You may use more 
than one variable on each call by sepa¬ 
rating each with a comma. The effect is 
the same as multiple calls to READ. 


READ(f,vl,v2) 
i s equivalent to: 

begi n 

READ(f,vl); 

READ(f,v2) 
end 

and 

READLN(f,vl,v2,v3) 
is equivalent to: 

begin 

READ(f,vl); 

READ(f,v2); 

READ(f,v3); 

READLN(f); 

end 

Multiple Variables on READ or READLN 
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Reading INTEGER Data 


INTEGER data from a TEXT file is read 
by scanning off leading blanks, accept¬ 
ing an optional sign and converting all 
characters up to the first non-numeric 
character. 


Readi ng CHAR Data 

A variable of type CHAR is assigned the 
next character in the file. 


Reading STRING Data 

Characters are read into a STRING vari¬ 
able until the variable has reached its 
maximum length or until the end of the 
line is reached. 


array to the upper bound, performing a 
read operation for each element. If the 
end-of-line condition should become 
true before the variable is filled, the 
rest of the variable is filled with 
blanks. 

Consult the Programmer’s Guide for more 
details on the use of READ and READLN. 


var 

I,J: INTEGER; 

S* STRING!100); 

CH: CHAR; 

CC* packed arrayE1..10] of CHAR; 
F* TEXT; 


READLN!F,I,J,CH,CC,S); 


Readino REAL Data 

REAL data is read by scanning off lead¬ 
ing blanks, accepting an optional sign 
and converting all characters up to the 
first non-numeric character not con¬ 
forming to the syntax of a REAL number. 


Reading packed array of CHAR Data 

If the variable is declared as a 
'packed arraytl.,nl of CHAR’, charac¬ 
ters are stored into each element of 
the array. This is equivalent to a loop 
ranging from the lower bound of the 


assume the data is* 

36 24 ABCDEFGHIHKLMNOPQRSTUVWXYZ 


the variables would be assigned* 


I 

J 

CH 

CC 

S 

LENGTH!S) 


36 

24 

i » 

'ABCDEFGHIJ» 

'KLMNOPQRSTUVWXYZ* 
16 


The READ Procedure 


98 


Pascal/VS Reference Manual 






10.10 READ (NON-TEXT FILES) 


10.11 WRITE AND WRITELN CTEXT FILES 




Read Data from Non-TEXT Files Write Data to File 


Definition * 

procedure READC 

f * file of t; 
v * t); 

where : 

f is an arbitrary file variable, 
visa variable whose type matches 
the file component type of f 


Each call to READ will read one file 
element from file f f* and assign it to 
variable ’v f . If the file is not open> 
the READ procedure will open it prior 
to assigning to the argument. 

READ(f,v) is functionally equivalent 
to the following compound statement* 

begi n 

v * = f->; 

GETCf) 
end 

For more details consult the Program¬ 
mer 1 s Guide. 


Definition * 

procedure WRITEC 

f * TEXT; 
e * see below); 

procedure WRITELNC 
f * TEXT; 
e * see below); 

where * 

f is an optional TEXT file 
variable. 

e is an expression of one of the 
following types* 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- BOOLEAN 

- STRING 

- packed arrayCl..n] of CHAR 
Pascal/VS accepts a special para¬ 
meter format which is only 
allowed in the WRITE routine 

for TEXT files. 

See the following description. 


The WRITE procedure writes character 
data to the TEXT file specified by f. 
The data is obtained by converting the 
expression e into an external form. The 
file parameter is optional; if not 
specified, the default file OUTPUT is 
used. 


WRITELN positions the file to the 
beginning of the next line. WRITELN is 
only applicable to TEXT files. You may 
use more than one expression on each 
call by separating each with a comma. 
The effect is the same as multiple 
calls to WRITE. 
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WRITE(f,el,e2) 
is equivalent to: 


type of 
expression e 


default value 
of lenl 


begi n 

WRITE(f,el); 
WRITECf,e2) 
end 


and 


WRITELN(f,el,e2,e3) 
is equivalent to: 


INTEGER 

REAL 

CHAR 

BOOLEAN 

STRING 

array of CHAR 


12 

20 ( E notation ) 

1 

10 

LENGTHCexpression) 
number elements in 
the array 


Default Field Width on WRITE 


begi n 

WRITECf,el); 

WRITECf,e2); 

WRITECf,e3); 

WRITELNC f); 
end 

Multiple Expressions on WRITE 


Pascal/VS supports a specialized form 
for specifying actual parameters on 
WRITE and WRITELN to TEXT files. This 
provides a means by which you can spec¬ 
ify the length of the resulting output. 
Each expression in the WRITE procedure 
call may be represented in one of three 
forms: 


Writing INTEGER Data 

The expression lenl represents the 
width of the field in which the integer 
is to be placed. The value is converted 
to character format and placed in a 
+ field of the specified length. If the 
+ field is shorter than the size required 
+ to represent the value, digits are 
+ truncated from the left Cmost signif- 
+ icant posit i on). 

Examples : 

Call: Result: 


O l ' e 

2 . e : lenl 

3. e : lenl : len2 

The expression e may be of any of the 
types outlined above and represents the 
data to be placed on the file. The data 
i s converted to a character representa¬ 
tion from the internal form. The 
expressions lenl and len2 must evaluate 
to an INTEGER value. 

The expression lenl supplies the length 
of the field into which the data is 
written. The data is placed in the 
field justified to the right edge of 
+ the field. If lenl specifies a negative 
+ value, the data is justified to the 
+ left within a field whose length is 
+ ABS(lenl). If lenl has the value zero, 
+ the data will be placed in a field with 
+ no padding or truncation. 


WRITE(1234 : 6) ' 1234* 

+ WRITE(1234:-6) *1234 1 

WRITE(1234:0) *1234* 

WRITEU234) * 1234* 

+ WRITE(1234:3) *234* 


Writing CHAR Data 

The value of lenl is used to indicate 
the width of the field in which the 
character is to be placed. If lenl is 
not specified, a field width of 1 is 
assumed. If lenl is greater than 1 then 
the character will be padded on the 
+ left with blanks; if lenl is negative, 
+ then the character will be padded on 
+ the right. 

Example: 


The len2 expression (form 3) may be 
specified only if e i s an expression of 
type REAL. 

If lenl is unspecified (form 1) then a 
default value is used according to the 
table below. 


o 


call: Result: 

WRITE(’a':6) * a* 

WRITE(* a':-6) 'a ' 


Wri ting REAL Data 

REAL expressions may be printed with 
any one of the three operand formats. 
If lenl is not specified (form 1), the 
result will be in scientific notation 
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in a 20 character field. 

If lenl is specified and len2 is not 
(form 2), the result will be in scien¬ 
tific notation but the number of char¬ 
acters in the field will be the value 
of lenl. 

If both lenl and len2 are specified 
(form 3), the data will be written in 
fixed point notation in a field with 
length lenl; len2 specifies the number 
of digits that will appear to the right 
of the decimal point. The REAL expres¬ 
sion is always rounded to the last dig¬ 
it to be pr i nted. 

Examples* 

Call* Result* 

WRITE(3.14159*10) 

* 3.142E+00 * 


URITE(3.14159) 

’ 3.1415900000000E+00’ 

WRITE(3.14159*10*4) 

’ 3.1416* 


Uniting BOOLEAN Data 

The expression lenl is used to indicate 
the width of the field in which the 
+ boolean is to be placed. If the width 
+ is less than 6, then either a *T’ or 
+ *F* will be printed. Otherwise, 'TRUE* 
+ or ’FALSE* will be sent to the file. 
+ The data is placed in the field and 
+ justified according to the previously 


+ stated rules. 

Examples * 

Call* Result* 

URITE(TRUE*10) ’ TRUE* 

+ URITE(TRUE *-10) 'TRUE ’ 

+ WRITE(FALSE*2) * F* 

WRITE(TRUE* 0) 'TRUE* 


Uriting STRING Data 

The second expression is used to indi¬ 
cate the width of the field in which 
the string is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. 


Examples * 

Call* Result* 

WRITE(’abed**6) * abed* 

+ URITE(’abed**-6) ’abed * 

+ WRITE(’abed’*2) »ab* 

+ WRITE('abed**0) ’abed’ 


Writing Packed Array of CHAR Data 

The second expression is used to indi¬ 
cate the width of the field in which 
the array is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. 

Examples * 

var 

A * packed 

arrayE 1..4] of CHAR; 


A * = ’abed’; 


Call* Result* 

WRITE(A*6) ’ abed* 

+ WRITE(A *-6) ’abed ’ 

+ WRITE(A * 2) *ab» 

+ WRITE(A * 0) ’abed’ 


10.12 WRITE (NON-TEXT FILES) 


Write Data to Non-TEXT Files 



Each call to WRITE will write the value 
of expression e to file ’f*. 

WRITE(f,e) is functionally equivalent 
to the following compound statement* 

begi n 
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10.13 EOLN FUNCTION 


f-> := e; 
PUT(f) 
end 


W Fo r more details 
mer 1 s Guide. 


consult 


the Program- 


Test a File for End of Line 
Definition • 

function EOLNC f: TEXT ) .'BOOLEAN; 

function EOLN:BOOLEAN; 

where: 

f is a TEXT file set to 
input. 



The EOLN function returns a BOOLEAN 
result of TRUE if TEXT file f is posi¬ 
tioned to an end-of-line character; 
otherwise, it returns FALSE. 

If EOLN(f) is true, then f-> has the 
value of a blank. That is, when EOLN is 
TRUE the file is positioned to a blank. 
This character is not in the file but 
will appear as if it were. In many 
applications the extra blank will not 
affect the result; in those instances 
where the physical layout of the data 
is significant you must be sensitive to 
the EOLN condition. 

If the file variable F is omitted, then 
the function assumes the predefined 
file INPUT. 
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10.14 PAGE PROCEDURE 


Force Skip to Next Page 


Definition • 

procedure PAGE( var f' TEXT ); 
where • 

f is a TEXT file set to 
output. 


This procedure causes a skip to the top 
of the next page when the text-file is 
printed. The file parameter is optional 
and defaults to the standard file vari¬ 
able OUTPUT. 


+ 10.-15 COLS FUNCTION 
+ Determine Current Column 


Definition: 


function COLSC 
var f: TEXT ) 

: INTEGER; 

where: 


f is a TEXT file 
output. 

set to 


+ This function returns the current col- 
+ umn number (position of the next chai— 
+ acter to be written) on the output file 
+ designated by the file variable. You 
+ may force the output to a specific col- 
+ umn with the following code: 


+ if TAB > COLSCF) then 
+ WRITECF,' *:TAB-C0LS(F)); 


+ The file name is never defaulted on the 
+ COLS procedure. 
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11,0 EXECUTION LIBRARY FACILITIES 




The runtime library consists of those 
routines that are predefined in 
Pascal/VS. In addition to the routines 
described in this chapter* Pascal/VS 
provides routines with which to do + 
input and output. Consult the I/O chap¬ 
ter for a description of those rou- + 
tines. The predefined procedures and 
functions are: 


+ • 
+ • 


+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


MARK Procedure 
RELEASE Procedure 
NEW Procedure 
DISPOSE Procedure 
PACK Procedure 
UNPACK Procedure 
LBOUND Function 
HBOUND Function 
MIN Function 
MAX Function 
LOWEST Function 
HIGHEST Function 
SIZEOF Function 
ORD Function 
CHR Function 
Scalar Conversion 
PRED Function 
SUCC Function 
ODD Function 
ABS Function 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


FLOAT Function 


TRUNC Function 
ROUND Function 
STR Function 
LENGTH Function 
SIN Function 
COS Function 
ARCTAN Function 
EXP Function 
LN Function 
SQRT Function 
SQR Function 
RANDOM Function 
SUBSTR Function 
TRIM Function 
LTRIM Function 
DELETE Function 
COMPRESS Function 
INDEX Function 
TOKEN Function 
TRACE Procedure 
HALT Procedure 
DATETIME Procedure 
CLOCK Function 
FARMS Function 
RETCODE Procedure 
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11.1 MEMORY MANAGEMENT ROUTINES 

' These routines provide means by which you can control the allocation of dynamic vari- 
J ables. 

+ 11.1.1 MARK PROCEDURE + 11.1.2 RELEASE PROCEDURE 



+ The MARK procedure allocates a new 
+ heap. All dynamic variables are allo- 
+ cated from an area of storage called 
+ the heap. The predefined procedure 
+ RELEASE frees a heap created by MARK. 
+ Thus, heaps are created and destroyed 
+ in a stack fashion. The predefined pro- 
+ cedure NEW allocates a dynamic variable 
+ from the most recent heap. The prede- 
+ fined procedure DISPOSE de-allocates a 
+ dynamic variable from the heap. 


+ RELEASE returns all heap storage that 
+ was allocated since the matching MARK. 
+ The parameter of RELEASE is the same 
+ one as was specified on a previous call 
+ to MARK; it is through this parameter 
+ that the matching MARK is identified. 
+ RELEASE permits dynamic variables to be 
+ returned in blocks. RELEASE sets the 
+ pointer to nil. 

+ __ 


+ type 

+ MARKP = ->INTEGER; 

+ LINKP = ->LINK; 

+ LINK = record 

+ NAME: STRINGC30); 

+ NEXT: LINKP 

+ end; 

+ var 

+ P : MARKP; 

+ Ql, 

+ Q2, 

+ Q3 : LINKP; 

+ begin 
+ ... 

+ MARKCP); 

+ • . ♦ 

+ NEW(Ql); 

+ NEWCQ2); 

+ NEWCQ3); 

+ ... 

+ (* Frees Ql, Q2 and Q3 X) 

+ RELEASE(P); 

+ 

+ end; 


+ Example of MARK and RELEASE 


+ 


106 


Pascal/VS Reference Manual 






11.1.3 NEW PROCEDURE 


Allocate Dynamic Variable 


definition: 


form 1* 

procedure 

NEW( 


var 

P 

: pointer ); 

form 2: 

procedure 

NEW( 


var 

PI 

: pointer; 

where: 

t1,t2... 

: scalar); 


P is a pointer to any type 
except a dynamic array. 

PI is a pointer to a record 
type with variants 

P2 is a pointer to a dynamic 
array. 

tl*t2... are scalar constants 
representing tag fields 


The NEW procedure allocates a dynamic 
variable from the most recent heap and 
sets the pointer to point to the vari¬ 
able. 

form JL 

The first form of procedure NEW allo¬ 
cates the amount of storage that i s 
necessary to represent a value of the 
type to which the pointer refers. If 
the type of the dynamic variable is a 
record with a variant part* the space 
allocated is the amount required for 
the record when the largest variant is 
active. 


type 

LINKP = ->LINK; 

LINK = record 

NAME: STRINGC 30); 
NEXT: LINKP 
end; 

var 

P* 

HEAD : LINKP; 

begin 

NEWCP); 
with P-> do 
begin 

NAME := »*; 

NEXT := HEAD; 
end; 

HEAD := P; 
end; 

Example of using Simple Form 
of Procedure NEW 


form 2 

The second form is used to allocate a 
variant record when it is known which 
variant Cand sub-variants) will be 
active* in which case the amount of 
storage allocated will be no larger 
than necessary to contain the variant 
specified. The scalar constants are tag 
field values. The first one indicates a 
particular variant in the record which 
will be active; subsequent tags indi¬ 
cate active sub-variants* sub-sub¬ 
variants* and so on. 

Note: This procedure does not set tag 
fields . The tag list only serves to 
indicate the amount of storage 
required; it is the programmer’s res¬ 
ponsibility to set the tag fields after 
the record is allocated. 
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11.1.4 DISPOSE PROCEDURE 


type 

AGE = 0. .100; 

RECP = ->REC; 

REC = 
record 

NAME*- STRINGC 30 ); 
case HOW_OLD: AGE of 
0..18: 

(FATHER: RECP); 

19. .100: 

(case MARRIED: BOOLEAN of 
TRUE: (SPOUSE: RECP); 
FALSE: () 

) 

end; 

var 

P : RECP; 
begi n 

NEW(P,18); 

with P-> do begin 

NAME := 'J. B. SMITH, JR' 
HOW_OLD := 18; 

NELK FATHER,54,TRUE); 
with FATHER-> do begin 
NAME := 'J. B. SMITH'; 

HOLMJLD := 54; 

MARRIED := TRUE; 
NELKSPOUSE,50,TRUE); 

end (*with fathei—>*); 
end (*with p->*); 

end; 


De-allocate Dynamic Variable 


definition : 

procedure DISP0SE( 

var P : pointer); 


where: 

P is any pointer type. 


DISPOSE returns storage for a dynamic 
variable. You may de-allocate a dynamic 
variable from any heap. This procedure 
only returns the storage referred to by 
the pointer and does not return any 
storage which the dynamic variable ref¬ 
erences. That is, if the dynamic vari¬ 
able is part of a linked list, you must 
explicitly DISPOSE of every element of 
the list. DISPOSE sets the pointer to 
nil. If you have other pointers which 
reference the same DISPOSEd dynamic 
variable, then it is your responsibil¬ 
ity not to use these pointers because 
the dynamic variable which they repres¬ 
ented is no longer allocated. 


Using NEW for Allocating 
Records with Variants 
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11.2 DATA MOVEMENT ROUTINES 


These routines provide you with convenient ways to handle large amounts of data move¬ 
ment efficiently. 

11.2.1 PACK PROCEDURE 11.2.2 UNPACK PROCEDURE 


Copy Unpacked Array to Packed Array 


definition ♦ 

procedure PACKC 

const SOURCE : array-type; 

INDEX : index_of_source; 
var TARGET : pack_array_type) 

where : 

SOURCE is an array. 

INDEX is an expression which is 
compatible with the index 
of SOURCE. 

TARGET is a variable of type packed 
array. 


Copy Packed Array to Unpacked Array 


defin i t i on : 

procedure UNPACKC 

var SOURCE : pack_array_type; 

const TARGET : array-type; 

INDEX : index_of_target) 

where * 

SOURCE is a packed array. 

TARGET is a variable of type array. 
INDEX is an expression which is 
compatible with the index 
of TARGET. 


This procedure fills the target array 
with elements from the source array 
starting with the index I where the 
target array is packed. The types of 
the elements of the two arrays must be 
identical. This procedure operates as : 

Given • 

A • arraylm..n] of T; 

Z ’ packed arrayCu..v3 of T; 

Call: 

PACK(A, I, Z); 

Operation: 
k := I; 

for j := LBOUND(Z) to HBOUND(Z) do 
begi n 

ZCj] := A C k 3; 
k := SUCC(k) 
end; 

Where: 

j and k are temporary variables. 


It is an error if the number of ele¬ 
ments in Z is greater than the number 
of elements in A starting with the Ith 
element to the end of the array. 


This procedure fills the target array 
with elements from the source array 
where the source array is packed. The 
type of the elements of the two arrays 
must be identical. This procedure opei— 
ates as: 

Given: 

A : array[m..n3 of T; 

Z : packed arrayCu..v3 of T; 

Call: 

UNPACKCZ, A, I); 

Operation: 
k := I; 

for j := LBOUND(Z) to HBOUND(Z) do 
begi n 

ACk3 := ZC j 3; 
k := SUCCCk) 
end; 

Where: 

j and k are temporary variables. 


It is an error if the number of ele¬ 
ments in Z is greater than the number 
of elements in A starting with the Ith 
element to the end of the array. 
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11.3 DATA ACCESS ROUTINES 


These routines provide you a means to inquire about compile and run time bounds and 
values. 


+ 11.3.1 LBOUND FUNCTION 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


Lower Bound of Array 


definition * 


function 

LBOUNDC 

V 

I 

arraytype; 
integei—const) 
scalar; 

function 

LBOUNDC 

T 

I 

type-identifier; 
integei—const) 
scalar; 

where! 




Visa variable which is declared 
as an array type. 

T is an type identifier declared 
as an array. 

I is an positive integer valued 
constant expression and is 
optional. 


C^y+ The LBOUND function returns the lower 
+ bound of an index to an array. The 
+ array may be specified in two ways! 


+ - an identifier which was declared as 
+ an array type via the type con- 

+ struct; 

+ - a variable which is of an array 
+ type. 

+ The value returned is of the same type 
+ as the type of the index. The second 
+ parameter defines the dimension of the 
+ array for which the lower bound is 
+ returned. It is assumed to be "1” if it 
+ is not specified. 

+ _ 

+ Example! 

+ type 

+ GRID = arrayt-10..10,-10..10] of 
+ REAL; 

+ var 

+ A : arrayC 1..100 3 of ALFA; 

+ B • array! 1..100 3 of 

+ of array! 0..9 3 of CHAR; 

+ 

+ 

+ LBOUNDC A ) is 1 

+ LBOUNDC GRID, 1) is -10 

+ LBOUNDC B, 2 ) is 0 

+ LBOUNDC B!13 ) is 0 

+ The LBOUND Function 

+ _ 
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+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

•f 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


11.3.2 HBOUND FUNCTION 


Upper Bound of Array 


definiti 

on: 


function 

HBOUNDC 



V 

arraytype; 


I 

integei—const) 
scalar; 

function 

HBOUNDC 



T 

type-identifier; 

where ' 

I 

integei—const) 
scalar; 


Visa variable which is declared 
as an array type. 

T is an type identifier declared 
as an array. 

I is an positive integer-valued 
constant expression and is 
optional. 


The HBOUND function returns the upper 
bound of an index to an array. The 
array may be specified in two ways: 

an identifier which was declared as 
an array type via the type con¬ 
struct ; 

a variable which is of an array 
type. 

The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the upper bound is 
returned. It is assumed to be "1" if it 
is not specified. 


Example ’ 
type 

GRID = arrayC-10..10,-10..103 of 
REAL; 


var 

A : GRID; 

B s arrayt 1..100 3 of 

of arrayt 0..9 3 of CHAR; 


HBOUNDC A ) is 10 

HBOUNDC GRID ) is 10 

HBOUNDC B, 2 ) is 9 

HBOUNDC BC13 ) is 9 

The HBOUND Function 


+ 11.3.3 LOWEST FUNCTION 


+ 

4 . 

Lowest Value of a Scalar 

T 

+ 

definition• 

+ 

function LOWESTC 

+ 

S - scalar—type) 

+ 

s scalar; 

+ 

where: 

+ 

S is an identifier that has been 

+ 

declared as a scalar type, or 

+ 

a variable which is of a scalar 

+ 

type. 

X 



+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


This function returns the lowest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function 
is the lowest value that a variable of 
that type may be assigned. If the opei— 
and is a variable, the value of the 
function is the lowest value that the 
variable may be assigned. 

If the argument S refers to a record- 
type which has a variant part, and if 
no tag values are specified, then the 
storage required for the record with 
the largest variant will be returned. 


Example: 

type 

DAYS 

= C SUN, MON, 

TUES, 


THU, FRI, 

SAT); 

SMALL 

= 0 .. 31; 


var 

I 

: INTEGER; 


J 

: 0 .. 255; 



LOWESTCDAYS) is SUN 

LOWESTCBOOLEAN) is FALSE 

LOWESTCSMALL) is 0 

LOWEST Cl) is MININT 

LOWESTCJ) is 0 

The LOWEST Function 
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+ 11.3.4 HIGHEST FUNCTION 


+ 11.3.5 SIZEOF FUNCTION 



+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


Highest Value of a Scalar 


definition ‘ 

function HIGHEST( 


S : 

scalai—type) 

where ' 

scalar; 

S is an identifier 

that has been 

declared as a scalar type, or 

a variable which 
type. 

is of a scalar 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 



This function returns the highest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function 
is the highest value that a variable of 
that type may be assigned. If the oper¬ 
and is a variable, the value of the 
function is the highest value that the 
variable may be assigned. 


Example J 

type 

DAYS 

= (SUN, MON, 

TUES, 


THU, FRI, 

SAT); 

SMALL 

=0 .. 31; 


var 

I 

: INTEGER; 


J 

: 0 .. 255; 



HIGHEST(DAYS) is SAT 

HIGHEST(BOOLEAN) is TRUE 

HIGHEST(SMALL) is 31 

HIGHEST(I) is MAXINT 

HIGHEST(J) is 255 


+ Allocation Size of Data 


t 


+ 

definition ' 

+ 

function SIZEOFC 

+ 

S * anytype) 

+ 

: INTEGER; 

+ 

function SIZEOFC 

+ 

S s recordtype; 

+ 

tl, t2 , . . . •* tags); 

+ 

: INTEGER; 

+ 

where: 

+ 

S is an identifier that has been 

+ 

declared as a type, or any 

+ 

+ 

variable. 


+ The SIZEOF function returns the amount 
+ of storage in bytes required to contain 
+ the variable or a variable of the type 
+ specified. 

+ If S is a record variable or a type 
+ identifier of a record, it may be fol- 
+ lowed by tag list which defines a pai— 
+ ticular variant configuration of the 
+ record. In this case the function will 
+ return the amount of storage required 
+ within the record to contain that vari- 
+ ant configuration. 


+ The HIGHEST Function 


+ 


o 
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11.4 CONVERSION ROUTINES 


These routines allow for conversions between one data type and another. Other type 
conversions must be programmed. 


11.4.1 ORD FUNCTION 


11.4.2 CHR FUNCTION 


Ordinal Value of Scalar 


definition ♦ 

function ORDC 

S : scalar ) 

: INTEGER; 


where ' 

S is may be any scalar type or 
a pointer. 


Integer to Character Conversion 


definition ♦ 

function CHR( 

I : INTEGER ) 

: CHAR; 


where ‘ 

I i5 an INTEGER expression that is 
to be interpreted as a character. 


This function returns an integer that 
corresponds to the ordinal value of the 
scalar. If the operand is of type CHAR 
then the value returned is the position 
in the EBCDIC character set for the 
character operand. If the operand is an 
enumerated scalar, then it returns the 
position in the enumeration (beginning 
at zero); for example, if COLOR = (RED, 
YELLOW, BLUE), then ORD(RED) is 0 and 
0RD(BLUE) is 2. 

If the operand is a pointer, then the 
function returns the machine address of 
the dynamic variable referenced by the 
pointer. Although pointers can be con¬ 
verted to INTEGERS, there is no func¬ 
tion provided to convert an INTEGER to 
a pointer. 


This function is the inverse function 
to ORD for characters. That is, 
* 0RD(CHR(I))=1 T if I is in the sub¬ 
range : 

0RD(L0WEST(CHAR))..0RD(HIGHEST(CHAR)) 

If the operand is not within this range 
and checking is enabled then a runtime 
error will result, otherwise the result 
is unpredictable. 
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+ 11.4.3 SCALAR CONVERSION 


+ 11.4.4 FLOAT FUNCTION 



+ Every type identifier for an enumerated 
+ scalar or subrange scalar can be used 
+ as a function that converts an integer 
+ into a value of the enumerated scalar. 
+ These functions are the inverse of ORD. 

+ _ 


+ Example: 

+ type 

+ DAYS = (SUN, MON, TUES, WED, 

+ THU, FRI, SAT); 

+ 

+ . 

DAYS(O) is SUN 

DAYSC3) is WED 

+ DAYSC6) is SAT 

+ DAYSC7) is an error 

+ BOOLEAN(O) is FALSE 

+ BOOLEAN(l) is TRUE 

+ The Enumerated Scalar Function 


+ This function converts an INTEGER to a 
+ REAL. Pascal/VS will convert an INTEGER 
+ to a REAL implicitly if one operand of 
+ an arithmetic or relation operator is 
+ REAL and the other is INTEGER. This 
+ function is useful in making the con- 
+ version explicit in the program. 
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11.4.5 TRUNC FUNCTION 11.4.6 ROUND FUNCTION 



Real to Integer Conversion Real to Integer Conversion 


definition: 


definitioni 

function TRUNCC 


function ROUNDC 

R : REAL ) 


R s REAL ) 

: INTEGER; 


: INTEGER; 

where: 


where: 

R is a REAL valued expression. 


R is a REAL valued expression. 


This function 

converts 

a REAL expres- 

This function converts a REAL expres¬ 

sion to an INTEGER by 

truncating the 

sion to an INTEGER by rounding the 

operand toward 

Examples s 

zero. 


operand. This function equivalent to 

if R > 0.0 then 

ROUND := TRUNCCR + 0.5) 

TRUNCC 1.0) 

is 1 


else 

TRUNCC 1.1) 
TRUNCC 1.9) 

i s 1 
i s 1 


ROUND := TRUNCCR - 0.5) 

TRUNCC 0.0) 
TRUNCC-1.0) 

i s 0 
is -1 


Examples: 

TRUNCC-1.1) 

is -1 


ROUNDC 1.0) is 1 

TRUNCC-1.9) 

is -1 


ROUNDC 1.1) is 1 

ROUNDC 1.9) is 2 

ROUNDC 0.0) is 0 

ROUNDC-1.0) is -1 

ROUNDC-1.1) is -1 

ROUNDC-1.9) is -2 



o 
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+ This function converts either a CHAR or 
+ packed arraytl..n] of CHAR to a STRING. 

+ Pascal/VS will implicitly convert a 
+ STRING to a CHAR or packed arraytl..n] 

+ of CHAR on assignment, but all other 
+ conversions require you to explicitly 
+ state the conversion. You may assign a 
+ CHAR to an packed arrayCl..n] of CHAR 
+ by either* 

+ var 

+ AOC : ALPHA; 

+ CH : CHAR; 

+ . . . 

+ AOC •*= STR(CH); 

+ AOC := ’ '; A0C[1] := CH; 
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11.5 MATHEMATICAL ROUTINES 


These routines defined various mathematical transformations. 


+11.5.1 MIN FUNCTION + 11.5.2 MAX FUNCTION 


+ 

MINimum Value of Scalars 

+ 

Maximum Value of Scalars 





+ 

definition • 

+ 

definitioni 

+ 

function MINC 

+ 

function MAXC 

+ 

EO* 

+ 

EO* 

+ 


+ 


+ 

o 

+ 


+ 

En • scalar—type) 

+ 

En ' scalar-type) 

+ 

• scalar-type; 

+ 

i scalar—type; 

+ 

where: 

+ 

where * 

+ 

Ei is an expression of a scalar 

+ 

Ei is an expression of a scalar 

+ 

type. All parameters must be 

+ 

type. All parameters must be 

+ 

of the same type except where 

+ 

of the same type except where 

+ 

noted below. 

+ 

noted below. 

+ 


+ 



+ The MIN function returns the minimum 
+ value of two or more expressions. The 
+ parameters may be of any scalar type* 
+ including REAL. The parameters may be a 
+ mixture of INTEGER and REAL expres- 
+ sions* in which case* the result will 
+ be of type REAL. In all other cases* 
+ the parameters must be conformable to 
+ each other. 


+ The MAX function returns the maximum 
+ value of two or more parameters. The 
+ parameters may be of any scalar type* 
+ including REAL. They may be a mixture 
+ of INTEGER and REAL expressions* in 
+ which case* the result will be of type 
+ REAL. In all other cases* the parame- 
+ ters must be conformable to each other. 
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11.5.3 PREP FUNCTION 

Predecessor Value of a Scalar 

def i n i t i on ' 

function PREDC 

S •* scalar) 

: scalar; 

where ’• 

S is any scalar expression. 


11.5.4 SUCC FUNCTION 
Successor Value of a Scalar 

def i n i t i on '• 

function SUCCC 

S : scalar) 

' scalar; 

where ? 

S is any scalar expression. 


This function returns the predecessor 
value of the parameter expression. The 
PRED of the first element of an enumer¬ 
ated scalar is an error. If the option 
/{CHECK is ON, a runtime error will be 
raised if the PRED of the first element 
is attempted. If the checking is not 
performed, the results of the PRED of 
the first value is not defined. 
PREDCTRUE) is FALSE and PREDC f B') is 
'A'. The PRED of an INTEGER is equiv¬ 
alent to subtracting one. PRED of a 
REAL argument is an error. 


This function returns the successor 
value of the parameter expression. The 
SUCC of the last element of an enumei— 
ated scalar is an error. If the option 
/{CHECK is ON, a runtime error will be 
raised if the SUCC of the last element 
is attempted. If the checking is not 
performed, the results of the SUCC of 
the last value is not defined. 
SUCCC FALSE) is TRUE and SUCCC f B T ) is 
*C'. The SUCC of an INTEGER is equiv¬ 
alent to adding one. SUCC of a REAL 
argument is an error. 
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11.5.5 ODD FUNCTION 


11.5.6 ABS FUNCTION 


Test for Integer is Odd 


definition ' 


function ODDC 

I 

: INTEGER) 

: BOOLEAN; 

where ' 


I is an INTEGER to 
for being odd. 

be tested 


This function returns TRUE if the 
parameter I is odd, or FALSE if it is 
even. 


Absolute 

Value 

definition - 


function ABS( 

I 

: INTEGER ) 

: INTEGER; 

function ABSC 

R 

: REAL) 

: REAL; 

where ' 


I is an INTEGER expression. 

R is a REAL expression. 


The ABS function returns either a REAL 
value or an INTEGER value depending the 
type of its parameter. The result is 
the absolute value of the parameter. 


Execution Library Facilities 


119 





11.5.7 SIN FUNCTION 



Compute Sine 


definition! 


function SINC 

X 

: REAL) 

: REAL; 

where • 


X is an expression 
to a REAL value. 

that evaluates 


11.5.8 COS FUNCTION 


Compute Cosine 


definition ' 


function COSC 

X 

: REAL) 

: REAL; 

where • 


X is an expression 
to a REAL value. 

that evaluates 


The SIN function computes the sine of The COS function computes the cosine of 
parameter X, where X is expressed in the parameter X, where X is expressed 
radians. in radians. 
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11.5.9 ARCTAN FUNCTION 


11.5.10 EXP FUNCTION 



Compute Arctangent Compute Exponential 


definition • 


definition ’ 

function ARCTANC 


function EXPC 

X : REAL) 


X : REAL) 

: REAL; 


: REAL; 

where '• 


where ' 

X is an expression that evaluates 


X is an expression that evaluates 

to a REAL value. 


to a REAL value. 


The ARCTAN function computes the 
arctangent of parameter X. The result 
is expressed in radians. 


The EXP function computes the value of 
the base of the natural logarithms# e# 
raised to the power expressed by param¬ 
eter X. 
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11.5.11 LN FUNCTION 


Compute Natural Log 


definition: 
function LN( 


X 

: REAL) 

: REAL; 

where: 

X is an expression 
to a REAL value. 

that evaluates 


11.5.12 SQRT FUNCTION 


Compute Square Root 


definition: 


function SQRTC 

X 

: REAL) 

: REAL; 

where: 


X is an expression 
to a REAL value. 

that evaluates 


The LN function computes the natural The SQRT function computes the square 

logarithm of the parameter X. root of the parameter X. If the argu¬ 

ment is less than zero* a run time 
error is produced. 
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11.5.13 SQR FUNCTION 


+ 11.5.14 RANDOM FUNCTION 


Compute Square 


definition J 


function SQR( 

X 

: REAL) 

: REAL 

function SQR( 

X 

: INTEGER) 

: INTEGER 

where • 


X is an expression that evaluates 
to a REAL or INTEGER value. 


The SQR function computes the square of 
the argument. If the argument is of 
type REAL, then a REAL result is 
returned, otherwise the function 
returns an INTEGER. 


+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 


+ 


Compute a Random Number 


definition• 


function RANDOM! 

S : INTEGER); 

: REAL; 


where- 


S is an expression that evaluates 
to an INTEGER value. 


+ The RANDOM function returns a pseudo 
+ random number in the range >0.0 and 
+ <1.0. The parameter S is called the 
+ seed of the random number and is used 
+ to specify the beginning of the 
+ sequence. RANDOM always returns the 
+ same value when called with the same 
+ non zero seed. If you pass a seed value 
+ of 0, RANDOM will return the next num- 
+ ber as generated from the previous 
+ seed. Thus, the general way to use this 
+ function is to pass it a non zero seed 
+ on the first invocation and a zero 
+ value thereafter. 


+ It is suggested that you chose an 
+ inital value for the seed which is odd. 
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11.6 STRING ROUTINES 



These routines provide convenient means of operating on string data. 

11.6.1 LENGTH FUNCTION + 11.6.2 SUBSTR FUNCTION 


+ 

Length of String 

+ 

Obtain Substring 





+ 

definition: 

+ 

definition : 

+ 

function LENGTHC 

+ 

function SUBSTRC 

+ 

S : STRING) 

+ 

const SOURCE : STRING; 

+ 

: 0..255; 

+ 

START : INTEGER; 



+ 

LEN : INTEGER) 



+ 

•• STRING; 

+ 

where: 



+ 

S is a STRING valued expression. 

+ 

where * 



+ 

SOURCE is a STRING expression from 



+ 

which a portion will be 



+ 

returned. 

+ 


+ 

START is an INTEGER expression that 



+ 

designates the first position 



+ 

in the SOURCE to be returned. 

+ This function returns the current + 

LEN is an INTEGER expression that 

+ length of the parameter. The value will + 

defines the number of 

+ be in the range 0..255. 

+ 

4 - 

characters to be returned. 



+ The SUBSTR function returns a specified 
+ portion of the first parameter. The 
+ source is indexed from 1 to the LENGTH 
+ of SOURCE. The function treats the 
+ source as if it were surrounded by 
+ blanks on either side, thus if the LEN 
+ exceeds the LENGTH of the source, the 
+ returned value will be padded on the 
+ right with blanks. Similarly, if the 
+ START expression is less than one, 
+ blanks will be supplied on the left. 


+ Examples • 


+ var 

+ S : STRING; 

+ 

+ S •* = f ABCDE*; 

+ ... 

+ SUBSTRC* ABCDE*,2,3) yields 'BCD* 
+ SUBSTR(S,2,5) yields 'BCDE ' 

+ SUBSTRCS,0,8) yields ' ABCDE ' 
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+ 11.6.3 DELETE FUNCTION 


+ 11.6.4 TRIM FUNCTION 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


Delete Substring 


definition 1 

function DELETE( 
const SOURCE 
START 
LEN 


STRING; 

INTEGER; 

INTEGER) 

STRING; 


where - 

SOURCE 
whi 
ret 
START i 
des 
i n 

LEN is 
def 
cha 


is a STRING expression from 
ch a portion will be 
urned. 

s an INTEGER express!on that 
ignates the first position 
the SOURCE to be returned, 
an INTEGER expression that 
ines the number of 
racters to be returned. 


+ 

+ 

+ 


+ 

+ 

+ 


+ 


+ 


+ 

+ The TRIM function returns the parameter 
+ value with all trailing blanks removed. 

+ Example 1 

+ TRIM( f A B ') yields 1 A B» 

+ TRIMC ') yields ,f 


Remove Trailing Blanks 

definition 1 

function TRIMC 

const SOURCE : STRING) 

1 STRING; 

where 1 

SOURCE is the STRING to be trimmed. 


+ The DELETE function removes a specified 
+ portion of the value of the first 
+ parameter and returns the result. The 
+ source is indexed from 1 to the LENGTH 
+ of the source. An attempt to delete a 
+ portion of the source beyond the length 
+ is ignored. 


+ Examples 1 


+ var 

+ S 1 STRING; 

+ ... 

+ S *.= *ABCDE*; 

+ ... 

+ DELETEC»ABCDE f ,2,3) yields *AE' 

+ DEL ETEC S > 5,3) yields f ABCD* 

+ DELETECS,0/3) yields 'CDE f 
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+ 11.6.5 LTRIM FUNCTION 


+ 11.6.6 COMPRESS FUNCTION 


Remove Leading Blanks + Remove Multiple Blanks 




+ 


+ 

definition : 

+ 

def i n i t i on '» 

+ 

function LTRIMC 

+ 

function COMPRESS! 

+ 

const SOURCE : STRING) 

+ 

const SOURCE : STRING) 

+ 

t STRING; 

+ 

: STRING; 

+ 

where • 

+ 

where** 

+ 

SOURCE is the STRING to be trimmed. 

+ 

SOURCE is a the STRING expression 



+ 

to be compressed. 



+ 



+ The LTRIM function returns the parame- 

+ ter value with all leading blanks + The COMPRESS function replaces multi- 


+ 

removed. 


+ 

pie blanks with a single blank. 

+ 

Example! 


+ 

Example! 

+ 

LTRIMC A B 

») yields f A B » 

■ + 

COMPRESS! f A B CD ») yields »A B CD » 

+ 

LTRIMC * 

*) yields 1 1 






126 Pascal/VS Reference Manual 





+ 11.6.7 INDEX FUNCTION 


+ 11.6.8 TOKEN PROCEDURE 




+ 

Lookup String 

+ 

x 

Find Token 

+ 


T 


+ 

defin i tion: 

+ 

definition: 

+ 

function INDEXC 

+ 

procedure TOKENC 

+ 

const SOURCE : STRING; 

+ 

var POS : INTEGER; 

+ 

const LOOKUP : STRING) 

+ 

const SOURCE : STRING; 

+ 

* 0..255; 

+ 

var RESULT : ALPHA); 

+ 

where: 

+ 

where: 

+ 

SOURCE is a STRING that contains 

+ 

POS is the starting index in SOURCE 

+ 

the data to be compared against. 

+ 

of where to look for a token, it 

+ 

LOOKUP is the data to be looked 

+ 

is set to the index of where to 

+ 

up in the SOURCE. 

+ 

resume the search on the next 



+ 

use of TOKEN. 



+ 

SOURCE is a STRING that contains 

+ 


+ 

the data from which a token 



+ 

is to be extracted. 



+ 

RESULT is the variable which will 

+ The INDEX function compares the second + 

be returned with token found. 

+ parameter against the first and returns 


+ the starting index of the first 


+ 

nstance where LOOKUP begins in SOURCE 

+ 


+ If there are no occurrences, then a 


+ zero is returned. 





+ The TOKEN procedure scans the SOURCE 

+ Examples: 

+ string looking for a token and returns 



+ it as an ALPHA. The starting position 

+ 

var 

+ of the scan is passed as the first 

+ 

S : STRING; 

+ parameter. This parameter is changed to 

+ 

• • • 

+ reflect the position which the scan is 

+ 

S := ' ABCABC *: 

+ to be resumed on subsequent calls. 

+ 

♦ • • 

+ Leading blanks, multiple blanks and 

+ 

INDEXCS,'BC') yields 2 

+ trailing blanks are ignored. If there 

+ 

INDEX(S,'X') yields 0 

+ is no token in the string, POS is set 



+ to LENGTH(S0URCE)+1 and RESULT is set 



+ to all blanks. 



+ A token is defined to be any of: 



+ • Pascal/VS identifier 1 to 16 



+ 

alphanumeric characters, T $ f or an 



+ 

underscore. The first letter must 



+ 

be alphabetic or a '$*. 



+ « 

Pascal/VS unsigned number - see 



+ 

page 14. 



+ « 

The following special symbols: 



+ 

+ X / -> { $ 



+ 

A 

II 

A 

II 

V 

V 

A 

V 

II 



+ 

()[]'"% 



+ 

| & &X || -= # 



+ 

♦ # * = * f • • 



+ 

{ } (XX) /X X/ 
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+ Example** 

+ I := 2; 

TOKENd,', Token+S RESULT) 

+ I is set to 8 
+ RESULT is set to 'Token 

+ TOKEN would return the same if 
+ I were set to 3> that i s, 

+ leading blanks are ignored. 
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11.7 GENERAL ROUTINES 



These routines provide several useful features of the Pascal/VS runtime environment. 


+11.7.1 TRACE PROCEDURE 


+ 11.7.2 HALT PROCEDURE 


+ Routine Trace + Halt Program Execution 



+ 


def i n i t i on *• 

+ 

def i ni t i on 

procedure TRACE; 

+ 

+ 

procedure HALT; 


+ This procedure displays the current 
+ list of procedures and functions that 
+ are pending execution (i.e. save 
+ chain). The statement numbers of the 
+ statement that contained the call are 
+ also displayed. The information is 
+ written to OUTPUT. 


+ This routine halts execution of an 
+ Pascal/VS program. That is, this can be 
+ considered to be a return from the main 
+ program. 



o 
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11.8 SYSTEM INTERFACE ROUTINES 


O These routines provide interfaces to system facilitiesi in general they are dependent 
on the implementation of Pascal/VS. 

+11.8.1 DATETIME PROCEDURE +11.8.2 CLOCK FUNCTION 


+ Get Execution Time 

+ 

+ 

+ 


+ 


+ The value returned is the number of 
+ microseconds the program, has been run- 
+ ning. Note* In an MVS system** the time 
+ is "TASK” time; and in a CMS system* 
+ the time is "CPU virtual" time. 




+ This procedure returns the current date 
+ and time of day as two ALFA arrays. The 
+ format of the result is placed in the 
+ first and second parameters respec- 
+ tivelys 

+ mm/dd/yy 
+ HH**MM**SS 



where : 

mm is the month expressed as a two 
digit value. 

dd is the day of the month. 

yy is the last two digits of the 
year. 

HH is the hour of the day expressed 
in a 24 hour clock. 

MM is the minute of the hour. 

SS is the second of the minute. 
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+ 11.8.3 PARMS FUNCTION 


+11.8.4 RETCODE PROCEDURE 



+ Get Execution Parameters 

+ 

+ 

+ 

+ 


definition » 

function PARMS : STRING; 


+ The PARMS function returns a string 
+ that was associated with initial invo- 
+ cation of the Pascal/VS main program. 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 


Set Program Return Code 


definition : 

procedure RETCODEC 

RETVALUE : INTEGER); 

where♦ 

RETVALUE is the return code to be 
passed to the caller of the 
Pascal/VS program. The value 
is system dependent. 


+ The value of the operand will be 
+ returned to system when an exit is made 
+ from the main program. If this routine 
+ is called several times# only the last 
+ value specified will be passed back to 
+ the system. 


G 


O 
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+ 12.0 THE FEATURE 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


Syntax *• 


include-statement♦ 


-> %-> INCLUDE-> id 



— > id-> ) 



check-statement • 


-> X -> CHECK 


-> POINTER->- 

-> SUBSCRIPT->- 

-> SUBRANGE->- 

-> FUNCTION->- 

L -> CASE-> J 


T > ON 

L > 0F F 



> 


print~statement - 

-> X-> PRINT-1-> ON- T -> 

L -> OFF-> J 

1ist-statement ♦ 

-> X -> LIST-1-> ON-t-> 

L -> OFF-> J 


page-statement ♦ 

-> X-> PAGE-> 

titie-statement • 

-> X -> TITLE-> any-charactei—string-> 

sk i p-statement ’• 

-> X -> SKIP-> unsi gned-i nteger-> 


The X feature of Pascal/VS i s used to 
enable or disable a number of compiler 
options and features. The compiler 
treats a X command as a trigger symbol 


+ which causes the compiler to ignore all 
+ text between the /{statement and the 
+ end-of-line. 
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+12.1 THE ^INCLUDE STATEMENT 


C + The INCLUDE statement provides you with 
f a means to include source code from 
+ another source file or library. 


+ The 'id* is the name of a file to be 
+ inserted into the input stream. If an 
+ identifier enclosed in parentheses 
+ follows the file name, then that 
+ represents a member of a library file. 


+12.2 THE XCHECK STATEMENT 


+ The CHECK statement gives you the abi 1- 
+ i ty to enable or disable the runtime 
+ checking features of Pascal/VS. The 
+ checking may be enabled for part or all 
+ of the program. The compiler will check 
+ the following: 

+ * use of a pointer whose value is NIL 
+ (POINTER). 

+ • use of a subscript which is out of 

+ range for the array index (SUB- 

+ SCRIPT). 

+ • lack of an assignment of a value to 

+ a function before exiting from the 

+ function (FUNCTION). 

• assignment of a value which is not 

in the proper range for the target 
+ variable (SUBRANGE). 

+ • use of the predefined functions 

+ PRED or SUCC where the result of 

+ the function is not a value in the 

+ type, i.e. underflow or overflow of 

+ the value range (SUBRANGE). 

+ • the value of a CASE statement 

+ selector which is not equal to any 

+ of the CASE labels (CASE). 

+ If the check option is missing, then 
+ all of the above checks will be assumed 
+ applicable. For example, '/{CHECK ON’ 
+ activates all of the checks. '/{CHECK 
+ POINTER OFF' will disable the check on 
+ pointer references. The default is : 

+ X CHECK ON 


o 


+ The XCHECK statement, like the other 
+ statements in this section, is a 
+ direction to the compiler. Its effect 
+ is based on where it appears in the 
+ text and is not subject to any struc- 
+ turing established by the program. 


+12.3 THE SPRINT STATEMENT 


+ The PRINT statement is used to turn on 
+ and off the printing of source in the 
+ listing. The default is-* 

+ % PRINT ON 


+12.4 THE %LIST STATEMENT 


+ The LIST statement is used to enable or 
+ disable the pseudo-assembler listing 
+ of the Pascal/VS translator. The 
+ default is: 

+ % LIST OFF 


+ 12.5 THE %PAGE STATEMENT 


+ The PAGE statement is used to force a 
+ skip to the next page on the output 
+ listing of the source program. 


+12.6 THE XTITLE STATEMENT 


+ The TITLE statement is used to set the 
+ title in the listing. It also causes a 
+ page skip. The title is printed as 
+ specified on the statement, there is no 
+ change from lower case to upper case. 
+ The default is no title. 


+12.7 THE XSKIP STATEMENT 


+ The SKIP statement is used to force one 
+ or more blank lines to be inserted into 
+ the source listing. 
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+ A.O THE SPACE TYPE 


+ A.l THE SPACE DECLARATION 



+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

•f 

+ 

+ 

+ 


+ 

+ 

+ 


Syntax • 
space-type 

-> space-> i -> (constant-expr)-> ] > of > {type}-> 


The need arises to represent data with¬ 
in storage areas which do not have the 
same fixed offset within each instance 
of the area. Examples of this include 
entries within a directory, where each 
entry may be of variable length, and 
processing variable length records 
from a buffer. To solve this problem, 
Pascal/VS provides the space struc¬ 
ture. 

A variable declared with the space type 
has a component which is able to 
'float 1 over a storage area in a byte 
oriented manner. Space variables are 
accessed by following the variable's 
name with an integer index expression 
enclosed in square brackets. The index 
represents the offset (in bytes) within 
the space storage where the data to be 
accessed resides. The offset is speci¬ 
fied with an origin of zero. 

The constant expression which follows 
the space qualifier in the type defi¬ 
nition represents the size of the stoi— 
age area (in bytes) associated with the 
type. 

The component type of the space may be 
of any type except a file type. 

An element of a space may not be passed 
as a var parameter to a routine. Howev¬ 
er, an element may be passed as a const 
or value parameter. 


A. 2 SPACE REFERENCING 


A component of a space is selected by 
placing an index expression, enclosed 


+ within square brackets, after the space 
+ variable (just as in array references). 
+ The indexing expression must be of type 
+ INTEGER (or a subrange thereof). The 
+ value of the index is the offset within 
+ the space at which the component is to 
+ be accessed. The unit of the index is 
+ the byte. The index is always based 
+ upon a zero origin. The component will 
+ be of the space base type. 

+ If the '%CHECK SUBSCRIPT' option is 
+ enabled, the index expression will be 
+ checked at execution time to make sure 
+ that the computed address does not lie 
+ outside the storage occupied by the 
+ space. An execution time error diagnos- 
+ tic will occur if the value is invalid. 
+ (For a description of the CHECK feature 
+ see section 12.2 on page 134.) 

+ _ 

+ var 

+ S• spaceClOO] of 
+ record 

+ A,B: INTEGER 

+ end; 

+ begin 

+ (Kbase record begins 
+ at offset 10 within 
+ space *) 

+ S[10].A := 26; 

+ SC 10].B := 0; 

+ end; 

+ Space Referencing Examples 

+ _ 


o 
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B . 0 STANDARD IDENTIFIERS IN PASCAL/VS 


A standard Identifier is the name of a 
constant, type, variable or routine 
that is predefined in Pascal/VS. The 
name is declared in every module prior 
to the start of your program. You may 
redefine the name if you Nish; however. 


it is better to use the name according 
to its predefined meaning. 

The identifiers that are predefined 
are! 





Standard Identifiers 


identifier 

form 

description 


ABS 

function 

compute the absolute value of an INTEGER or REAL 

+ 

ALFA 

type 

array of 8 characters, indexed 1..ALFALEN 

+ 

ALFALEN 

constant 

HBOUND of type ALFA, value is 8 

+ 

ALPHA 

type 

array of 16 characters, indexed 1..ALPHALEN 

+ 

ALPHALEN 

constant 

HBOUND of type ALPHA, value is 16 


ARCTAN 

function 

returns the arctangent of the argument 


BOOLEAN 

type 

data type composed of the values FALSE and TRUE 


CHAR 

type 

character data type 


CHR 

function 

convert an integer to a character value 

+ 

CLOCK 

function 

returns the number of micro seconds of execution 

+ 

CLOSE 

procedure 

close a file 

+ 

COLS 

function 

returns current column on output line 

+ 

COMPRESS 

function 

replaces multiple blanks in a string with one blank 


COS 

function 

returns the cosine of the argument 

+ 

DATETIME 

procedure 

returns the current date and time of day 

+ 

DELETE 

function 

returns a string with a portion removed 


DISPOSE 

procedure 

deallocate a dynamic variable 


EOF 

function 

test file for end of file condition 


EOLN 

function 

test file for end of line condition 


EXP 

function 

returns the base of the natural log (e) 
raised to the power of the argument 


FALSE 

constant 

constant of type BOOLEAN, FALSE < TRUE 

+ 

FLOAT 

function 

convert an integer to a floating point value 


GET 

procedure 

advance file pointer to next element of input file 

+ 

HALT 

procedure 

halts the programs execution 

+ 

HBOUND 

function 

determine the upper bound of an array 

+ 

HIGHEST 

function 

determine the maximum value of a scalar 

+ 

INDEX 

function 

looks up one string in another 


INPUT 

variable 

default input file 


INTEGER 

type 

integer data type 

+ 

INTERACTIVE 

procedure 

open a file for interactive input 

+ 

LBOUND 

function 

determine the lower bound of an array 

+ 

LENGTH 

function 

determine the current length of a string 


LN 

function 

returns the natural logarithm of the argument 

+ 

LOWEST 

function 

determine the minimum value of a scalar 

+ 

LTRIM 

function 

returns a string with leading blanks removed 

+ 

MARK 

procedure 

routine to create a new heap 

+ 

MAX 

function 

determine the maximum value of a list of scalars 


MAXINT 

constant 

maximum value of type INTEGER 
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Standard Identifiers Continued 

0 

identifier 

form 

description 

+ 

MIN 

function 

determine the minimum value of a list of scalars 

+ 

MININT 

constant 

minimum value of type INTEGER 


NEW 

procedure 

allocate a dynamic variable from most recent heap 


ODD 

function 

returns TRUE if integer argument is odd 

+ 

OPEN 

procedure 

routine to open and initialize a file 


ORD 

function 

convert a scalar value to an integer 


OUTPUT 

variable 

default output file 


PACK 

procedure 

copies an array to a packed array 


PAGE 

procedure 

skips to the top of the next page 

+ 

PARMS 

function 

returns the system dependent invocation parameters 

+ 

POINTER 

type 

type to permit passing arbitrary pointers a routine 


PRED 

function 

obtain the predecessor of a scalar 


PUT 

procedure 

advance file pointer to next element of output file 

+ 

RANDOM 

function 

returns a pseudo-random number 


READ 

procedure 

routine to read data from a file 


READLN 

procedure 

routine to read the end of line character of TEXT file 


REAL 

type 

floating point 

+ 

RELEASE 

procedure 

routine to destroy one or more heaps 


RESET 

procedure 

open a file for input 

+ 

RETCODE 

procedure 

sets the system dependent return code 


REWRITE 

procedure 

open a file for output 


ROUND 

function 

convert a floating point to an integer by rounding 


SIN 

function 

returns the sine of the argument 

+ 

SIZEOF 

function 

determine the memory size of a variable or type 


SQRT 

function 

returns the square root of the argument 


SQR 

function 

returns the square of the argument 

+ 

STR 

function 

convert an array of characters to a string 

+ 

SUBSTR 

function 

returns a portion of a string 


SUCC 

function 

obtain the successor of a scalar 


TEXT 

type 

file of CHAR 

+ 

TOKEN 

procedure 

extracts tokens from a string 

+ 

TRACE 

procedure 

writes the routine return stack 

o 

TRIM 

function 

returns a string with trailing blanks removed 

TRUE 

constant 

constant of type BOOLEAN* TRUE > FALSE 

TRUNC 

function 

convert a floating point to an integer by truncating 


UNPACK 

procedure 

copies a packed array to an array 


WRITE 

procedure 

routine to write data to a file 


WRITELN 

procedure 

routine to write end of line to a TEXT file 


o 
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C. 0 SYNTAX DIAGRAMS 


actual-parameters* 


—> ( — 

1 - 1 -> Cexpr} 

]—r 

—> > - 



| < > < 

_J 







—>- 


array-structure * 

-> {i d ? type)-> (->-i 

i: - J 



— > Cconstant-expr}—j—> • 

{repetition}- t- j- - 

->j j 

-> ) 

-<— 

- <- 




array-type ?. 

—> packed 


K- 


•> array C 


1 -> {i ndex-type)- 

L<- , <- 


-> ] of ->{type> 


assert-statement • 

-> assert ->{expr} 


assiqnment-statement ? 

- 1 -> Cvari able)-r-> 

1 -> (id? f unct i on)- 


■> Cexpr)- 


base-seala >—type ? 

-> (enumerated-scalai—type}->-i 

-> {id? sea la i—type)->-j-> 

-> (subrange-scalai—type}-> J 
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check-statement♦ 


-> X -> CHECK 


■> POINTER->- 

•> SUBSCRIPT->- 

■> SUBRANGE->- 

■> FUNCTION->- 

■> CASE->- 




> ON ■ 

> OFF 
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Syntax Diagrams 









field * 

-> {j dj-j-j-> 

L > (-> (constant-expr) > ) > J 


f i eld-1 ist • 

-1-> Cf i xed-part)- 


-> ; 




■> {variant-parti- 




■>; 


7i~ > 


f i le-tvpe * 

-> file of ->{type)-> 


fixed-part • 


T7. 


■> {f i eld}- 

- , <- 


J 


-> {type}- 


«-<- 



for—statement • 

-> for ->{id)-> '• = ->{expr)- 


-> to - 

•> downto 


71 


-> {expr)->-i 


[! 


-> do ->{statement}- 


formals 




var -r 

const —> J 



{id} 
, < 


> 


->{idJ type} 



>{id ' type} 


>{procedure-heading} 


>function-heading} 


> 


H 


>- 

>- 


formal-parameters * 

--> ( -j-> {formal} 

L<- . <— 


> ) 


J 


> 


function-call ' 

-> {i d* functi on}-> {actual-parameters}-> 
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function-heading s 


-> function ->{id)-> {formal-parameters}-> *• ->{id:type}-> 


goto-statement ' 

-> goto ->{labell-> 


+ 


id: 


->{letter} 


-> { d i gi t}->-i 

-> {letter}->-|->-j 

-> {underscore}--> J 




> 


if-statement : 

—> if —>{expr}—> then 


*> {statement}- 




else —>{statement} 


u 


include-statement : 

---> X —-> INCLUDE > id —■ r- t - > 

L-> ( -> id -> )->J 


index-tvpe : 

-> {enumerated-scalai—type}->-i 

-> {id: sea la i—type}->-|-> 

-> {subrange-sea la i—type}-> J 


label: 


+ 


it:; 


> {unsi gned-i nteger}-r 

{id}-> J 


> 


label-del : 

-> label -1-> {label}-1-> ; -> 

L < - , < - 1 


leave-statement : 

+ -> leave-> 


1ist-statement : 

-> X -> LIST- T -> ON-t-> 

L -> OFF-> J 
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module* 




{program-module}-r 

{segment-module}->-* 


> 


page-statement ? 

-> % -> PAGE-> 


pointei—type • 

-> -> -> {id: type}-> 


pr int~statement * 

-> %-> PRINT- T -> ON-t -r-> 

L -> OFF-> J 


procedure-cal 1 ? 

-> (ids procedure}-1- 

1 - > 


[ — > {expr }— j ■ > ) - >-l 


procedure-heading ? 

-> procedure -Xid}->{formal-parameters} 



program-module ! 

-> program -> {i d}-1-> ( -1-> {i d}-1-> 

[ L<- , <- 1 

■<- ; <- 

-<-:- 1 

-> tdeclaration}-> J 

-> (compound-statement}-> . - 



> 


> 


range ? 

+ -> (constant-expr}-j-1-> 

+ L -> ..-> {constant-expr}-> J 


real-number • 

-> i -1->(hex-digit}-j-> T XR- 

.> # -,-> (digit}- 


T 7 . 

f<: 


'i<: 

•> (di gi t }- 


■>i 


o 


17 


-> E 


-> + -C 


-> (digit}- 


•>J 


144 Pascal/VS Reference Manual 










0 ♦ —>tid= 


r ecord-structure * 

type)-> ( 


t;:i: 


■> {constant-expr) 
- , <- 


: >T~”T 


> ) 


record-type ' 


■> packed 




■> record ->{field-1ist}-> end 


repeat-statement ? 
-> repeat - 


TZ 


■> {statement}- 
- ; <- 


-> until ->{expr}- 


repetition ♦ 

+ -> {constant-exprl 


return-statement * 
-> return - 


c 


routine-dcl ’ 


-> {procedure-headi ng}- 
->{function-heading}— 


r<- 


-> EXTERNAL —> ; - 

h > FORTRAN-> ; -■ 

-> ENTRY-> ;->- 

< - 

-> FORWARD -> ; — 


K- 


-> {declarat i on}- 




-> {compound-statement}- 


:>1 


->-i 
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segment-module * 


+ 

> 

> 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


-> segment->Cid}-> ;-> 

-< - 

-> (constant-del)-> 

-> (type-del)->- 

-Xdef-dcl)->• 

-> (stati c-dcl)->- 


-> (value-del)->-j 

->(routine-dcl)->■* 

- > # - > 


set-factor: 


-j-> (expr)-j 


—>(expr)— 

->J 



> < 



\ 


> 


set-type : 



packed 



set of ->(base-scalai—type)- 


5imple-expression : 



—- ■; ~ i— 

> (term) 



; 1 1\ 



+ 



-> && — >- 

^ 1 ^ 



-<- 

1 > 


> 


> 


skip-statement : 

-> % -> SKIP-> unsigned-integer-> 

space-type ? 

+ -> space-> (->(constant-expr)-> 3-> of-> (type)-> 


"\ 

J 
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statement• 


+ 


t 


+ 


+ 


— —> {label}-> ♦ - >1 

-> {assert-statement)- 

-> Cassignment-statement} 

-> Cease-statement}- 

-> {compound-statement} — 

-> {continue-statement} — 

-> {empty-statement}- 

-->{for-statement}- 

-> {goto-statement}- 

-> Cif-statement}- 

-> {leave-statement}- 

->{procedure-cal1}- 

-> {repeat-statement}- 

-> Creturn-statement}- 

-> Cwhile-statement}- 

-> Cwith-statement}- 




H 


•H 


H 


H 


H 


>- 


H 


H 


H 


>- 

>-• 


> 


+ 

+ 

+ 


stat i c-dcl 
-> static 


"i-> {i d} 

L <-/ - 



-> {type}-> 




> 


+• 

t 


stri ng « 



- 1 - 1 - 

L <-{character} <- 1 

-j--> (hex-digit}-j-> ’ XC 




> 


string-type * 

+ -> STRING -j- -> (->{constant-expr}-> )- -j -> 


structured-constant • 

t --j-> {record-structure}- 1 ---> 

t L ->{array-structure} > J 
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+ 

+ 

+ 

+ 



>(digit) 


-T -Xbinary digit) -j-> 

-[-Xhex-digit) j-> ’X 



> 


unsigned-number : 

-1-> (unsi gned-i nteger)->-j-> 

’-> (real-number)->-* 


value-assignment • 

+ -Xvariable)-> :=- 1 ->(constant-expression)- 1 -> 

+ 1 ->(structured-constant)-—> J 


value-del ’ 

+ -> value-^-(value-assignment)-> ;-j-> 


var-dcl • 
-> var 


t -> (i d) 

L <- , - 


*■<■ 


•> 


•> (type)-> 


> 


variable ? 
-> (i d) — 


■>i 


h<- 


-> C - 

•> . - 
■> -> 




-Xexpr)- 


-> (i d2 f i eld)- 


-> ) 


-X 


variant-part ♦ 


-> case 


I 


-> (f i eld)- 


> : -i-> (id: type)-3-> of - >1 




T~TZ 

L<- 


•> (range)- 


> : ( 


-> (fi eld-1 i st)- 1 -> ) 


J 


; <- 


whi1e-statement : 

-> while ->(expr)-> do ->(statement)- 
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with-statement ♦ 

-> with - 1 ->(variable)- 1 -> do -> (statement} 

L<- , <-1 


150 Pascal/VS Reference Manual 



D.O INDEX TO SYNTAX DIAGRAMS 


actual-parameters. 69 

array-structure. 16 

array-type. 36 

assert-statement. 74 

assignment-statement. 75 

base-scalai—type. 42 

case-statement... 76 

check-statement... 133 

compound-statement. 78 

constant. 14 

constant-dcl. 20 

constant-expr. 61 

cont i nue-statement. 79 

declaration. 17 

def-dcl. 24 

empty-statement. 80 

enumerated-scalai—type. 29 

expr. 61 

factor. 61 

field. 38 

f i eld-1 i st. 38 

file-type. 44 

fixed-part. 38 

foi—statement. 81 

formal. 53 

formal-paramaters. 53 

function-heading. 53 

function-call. 69 

goto-statement. 83 

id. 9 

if-statement. 84 

i nclude-statement. 133 

index-type. 36 

label. 19 

label-del. 19 

leave-statement. 85 

1 i st-statement. 133 

module. 17 


page-statement. 133 

pointei—type. 51 

print-statement. 133 

procedure-call. 86 

procedure-headi ng. 53 

program-module. 17 

range. 38 

real-number. 14 

record-structure. 16 

record-type. 38 

repeat-statement. 87 

repetition. 16 

return-statement. 88 

routine-del. 53 

segment-module. 17 

set-factor. 71 

set-type. 42 

si mple-expressi on. 61 

skip-statement. 133 

space-type. 135 

statement. 73 

static-dcl. 23 

string. 14 

string-type. 45 

structured-constant. 16 

subrange-scalai—type. 30 

term. 61 

title-statement. 133 

type. 27 

type-del. 21 

unsigned-constant. 14 

unsi gned-i nteger. 14 

unsigned-number. 14 

value-assi gnement. 25 

value-del. 25 

vai—del. 22 

variable. 57 

variant-part. 38 

wi th-statement. 90 

while-statement. 89 
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E. 0 GLOSSARY 


Actua1 parameter specifies what is to 
be passed to a routine. 

Array type is the structured type that 
consists of a fixed number of elements# 
each element of the same type. 

Assignment compatible is the term used 
to indicate whether a value may be 
assigned to a variable. 

Automatic variable is a variable which 
is allocated on entry to a routine and 
is deallocated on the subsequent 
return. An automatic variable is 
declared with the var declaration. 

Base scalar type is the name of the 
type on which another type is based. 

Bi t is one binary digit. 

Byte is the unit of addresabi 1 i ty on 
the System/370# its length is eight 
bits. 


defined. 

Field is the component of a record. 

File type is a data type which is the 
mechanism to do input and output in 
Pascal/VS. 

Fixed part is that part of a record 
which exists in all instances of a pai— 
ticular record type. 

Formal parameter is a parameter as 
declared on the routine heading. A 
formal parameter is used to specify 
what is permitted to be passed to a 
routine. 

Function is a routine# invoked by cod¬ 
ing its name in an expression# which 
passes a result back to the invoker 
through the routine name. 

Identifier i s the name of a declared 
i tern. 


Compatible types is the term which is 
used to indicate that operations 
between values of those types are 
permited. 

Component is the name of a value in a 
structured type. 


Index is the selection mechanism 
applied to an array to identify an 
element of the array. 

Internal routine is a routine which can 
be used only from within the lexical 
scope in which it was declared. 


Constant is a value which is either a 
literal or an identifier which has been 
associated with a value in a const 
declarat i on. 

Constant expression is an expression 
which can be completely evaluated by 
the compiler at compile time. 


Lexical scope identifies the portion of 
a module in which a name is known. An 
identifier declared in a routine is 
known within that routine and within 
all nested routines. If a nested rou¬ 
tine declares an item with the same 
name# the outer item is not available 
in the nested routine. 


Dvnamic variable is a variable which is 
allocated under programmer control. 
Explicit allocates and deallocates are 
required; the predefined procedures 
NEW and DISPOSE are provided for this 
purpose. 

Element is the component of an array. 

Entry routine is a procedure or func¬ 
tion which may be invoked from outside 
the module in which it is defined. The 
routine is called entry in the module 
in which is defined. An entry routine 
may not be imbedded in another routine; 
it must be defined on the outermost 
level of a module. 

Enumerated scalar type is a scalar that 
is defined by enumerating the elements 
of the type. Each element is repres¬ 
ented by an identifier. 

External routine is a procedure or 
function which may be invoked from out¬ 
side the module in which the routine is 


Nodule is the compilable unit in 
Pascal/VS. 

Offset is the selection mechanism of a 
space. An element is selected by plac¬ 
ing an integer value in parenthesis. 
The origin of a space is based on zero. 

Packed record type is a record struc¬ 
ture in which fields are allocated in 
the minimum number of bytes. Implemen¬ 
tation defined alignment of data types 
will not be preserved in order to pack 
the record. Packed records may not be 
passed by read/write reference. 

Pass by read only reference i s the 
parameter passing mechanism by which 
the address of a variable or temporary 
is passed to the called routine. The 
called routine is not permitted to mod¬ 
ify the formal parameter. If the actual 
parameter is an expression# a temporary 
will be created and its address will be 
passed to the called routine. A tempo¬ 
rary is also created for fields of 
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packed records. 

Pass by read/wri te reference i s the 
parameter passing mechanism by which 
the address of a variable is passed to 
the called routine. If the called rou¬ 
tine modifies the formal parameter; the 
corresponding actual parameter is 
changed. Only variables may be passed 
via this means. Fields of packed 
records will not be permitted to be 
passed in this way. 

Pass by value is the parameter passing 
mechanism by which a copy of the value 
of the actual parameter is passed to 
the called routine. If the called rou¬ 
tine modifies the formal parameter, the 
corresponding actual parameter is not 
affected. 

Pointer type is used to define vari¬ 
ables that contain the address of dyna- 
mic variables. 

Procedure is a routine, invoked by cod¬ 
ing its name as a statement, which does 
not pass a result back to the invoker. 

Program module is the name of the com¬ 
pilable unit which represents the first 
unit executed. 

Record type i 5 the structured type that 
contains a series of fields. Each field 
may be of a type different from the 
other fields of the record. A field is 
selected by the name of the field. 

Reserved word is an identifier whose 
use is restricted by the Pascal/VS corn- 
pi ler. 

Routine is a unit of a Pascal/VS pro¬ 
gram that may be called. The two type 
of routines are! procedures and func¬ 
tions. 

Scalar type defines a variable that may 
contain a single value at execution. 

Segment module is a compilable unit in 
Pascal/VS that is used to contain entry 
routines. 


Set type is used to define a variable 
that represents all combinations of 
elements of some scalar type. 

Space type is used to define a variable 
whose components may be positioned at 
any byte in the total space of the vai— 
iable. 

Statement is the executable unit in a 
Pascal/VS program. 

String represents an ordered list of 
characters whose size may vary at exe¬ 
cution time. There is a maximum size 
for every string. 

String constant is a string whose value 
is fixed by the compiler. 

Structured type is any one of several 
data type mechanisms that defines vari¬ 
ables that have multiple values. Each 
value is referred to generally as a 
component. 

Subrange scalar type is used to define 
a variable whose value is restricted to 
some subset of values of a base scalar 
type. 

Tag field is the field of a record 
which defines the structure of the 
variant part. 

Type defines the permissible values a 
variable may assume. 

Type definition is a specification of a 
data type. The specification may appear 
in a type declaration or in the decla¬ 
ration of a variable. 

Type identifier is the name given to a 
declared type. 

Variant part is that portion of a 
record which may vary from one instance 
of the record to another. The variant 
portion consists of a series of vari¬ 
ants that may share the same physical 
storage. 


/ 


154 Pascal/VS Reference Manual 






This page intentionally left blank. 





Glossary 


155 




